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A GENERAL TRANSIENT HEAT-TRANSFER COMPUTER PROGRAM 
FOR THERMALLY THICK WALLS 

By L. Bernard Garrett and Joan I. Pitts 
Langley Research Center 

SUMMARY 

This program is a general heat -transfer program which employs a finite -difference 
method for the solution of temperature histories of one-dimensional, two-dimensional, or 
spherical systems. Options are available for heat input given in tabular form, computed 
from a trajectory, or computed from a temperature history given for a specific location. 
The types of heat exchange are: (1) conduction; (2) convection - with (a) given heat input, 
(b) heating due to skin friction with Van Driest equations, (c) stagnation heating with 
Sibulkin, Detra-Kemp-Riddell, and Cohen equations; (3) radiation-out; (4) air -conduction; 
and (5) joint conduction. The system configuration is specified by an arbitrary number of 
discrete elements and their interrelationships. 

INTRODUCTION 

This report describes a general transient conduction heat-transfer computer pro- 
gram (program D1244) developed at the Langley Research Center and provides the user 
with the information necessary to use the program. The program is particularly suited 
for the thermal design of launch vehicles and spacecraft that are subject to aerodynamic 
heating, and has been used extensively at the Langley Research Center for this purpose. 

A finite -difference method is employed for the solution of the temperature histories 
(ref. 1) of one -dimensional, two-dimensional, or axisymmetric configuration systems. 

The thermal model is divided into a number of small volumes (blocks). The system can 
include 100 discrete blocks and 10 different materials with temperature-dependent 
properties. 

Several options are available to consider the heating rates: (1) the heating input 
may be given in tabular form as a function of time, (2) the heating may be computed by 
using free-stream environmental conditions or from a velocity-altitude trajectory for 
entry velocities up to 41000 ft/sec (12497 m/sec), which utilizes the 1962 U.S. Standard 
Atmosphere tables (ref. 2), or (3) the heating rate may be computed from a temperature 
history given for a specified location within the material. 



The types of heat exchange considered are: 

(1) Convection 

(a) Given heat input 

(b) Flat -plate or cone heating with Van Driest (refs. 3 and 4) equations 

(c) Stagnation heating with Sibulkin (ref. 5), Detra-Kemp -Riddell 

(ref. 6), and Cohen (ref. 7) equations 

(2) Conduction 

(3) Air -conduction (across an air gap) 

(4) Internal radiation (across an air gap) 

(5) Joint conduction 

(6) Radiation-out 

(a) Nonlinearized 

(b) Linearized 

This program is written in FORTRAN IV language for the Control Data 6000 Series 
computer and operates with the scope 3.0 operating system. The equations are programed 
in U.S. Customary units; some SI units are included in the text for the convenience of the 
reader. 


A 

b 

c f 

c f,o 

C P 

D 

d 

Glfcd) 

g 


SYMBOLS 

speed of sound, ft/sec (m/s) 
area, ft2 (m2) 

distance across air gap, ft (m) 
local skin-friction coefficient 

reference skin-friction coefficient evaluated at N^ e = 10® 

specific heat at constant pressure, Btu/lb-°R (J /kg-°K) 

diameter, ft (m) 

width or length of blocks, ft (m) 

high-enthalpy correlation function (see eqs. (41)) 

acceleration due to gravity, 32.1741 ft/sec2 (9.80665 m/sec2) 
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h 


heat -transfer coefficient (Van Driest and Sibulkin equations, Btu/ft^-sec-°R 
(W/m2-°K); Detra-Kemp-Riddell- and Cohen equations, lbm/ft^-sec 
(kg/m^-sec)) 

hj joint heat-transfer coefficient, Btu/ft2-sec-°R (W/m2-°K) 

i enthalpy, Btu/lb (JAg) 

id dimensionless static enthalpy (see eq. (40)) 

i r recovery enthalpy, Btu/lb (J Ag) 

i w wall enthalpy, Btu/lb (J/kg) 

k thermal conductivity, Btu/ft-sec-°R (W/m-°K) 

kq ir thermal conductivity of air, Btu/ft-sec-°R (W/m-°K) 

k m conductivity of material, Btu/ft-sec-°R (W/m-°K) 

L characteristic length used in Reynolds number, ft (m) 

ly block length, ft (m) 

M Mach number 

1% U Nusselt number based on diameter, hD/k 

Np r Prandtl number, Cp/xy'k 

Nj^ e Reynolds number, pVh/p 

NRe/ft Reynolds number per foot (per 0.3048 m), pV/p 
Ng^. Stanton number, h/|CppV) 

p pressure, lb/ft2 (N/m2) 

Q heating rate, Btu/sec (W) 
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heating rate per unit area, Btu/ft^-sec (W/m2) 
gas constant for air, 0.0686 Btu/lbm-°R (287 J/kg-°K) 
nose radius, ft (m) 
temperature, °R (°K) 
time, sec 

delta time or computing interval 
velocity, ft /sec (m/s) 
volume, (m^) 
block width, ft (m) 
compressibility factor 
quantities defined by equations (22) 
tangential velocity gradient 
ratio of specific heats 

ratio of local to stagnation convective heating rate 

( 2 27 X 1 0 

temperature ratio in viscosity relation for air ii = — — - 

1 + 

flat-plate or cone heating section, 6 = 198 °R/T when M has units of 
lb-sec/ff2 

emissivity 

viscosity coefficient, lb-sec/ft^ (N-sec/m^) 

reference value of viscosity defined by equations (38), lb-sec/ft2 (N-sec/m^) 
density, slugs/ft^ (kg/m 3) 


8) t 1/2 

■ used in 



p m material density, lb/ft 3 (kg/m 3 ) 

a Stefan-Boltzmann constant, Btu/ft 2 -sec- °R 4 (W/m 2 -°K 4 ) 

A sweep angle measured from normal to free-stream velocity vector 

Subscripts: 

cond conduction 

conv convection 

e local flow conditions at edge of boundary layer 

i variable integer which refers to block upon which heat balance is being 

performed 

j variable integer which refers to any other block that affects the heat balance 

for block i 

o reference condition 

Perfect properties based on perfect gas relations 
r adiabatic or recovery conditions 

rad radiation 

s stagnation conditions behind a normal shock 

w wall conditions at beginning of computing interval 

00 free-stream conditions upstream of shock 

A prime over a symbol indicates the value at the beginning of the time interval. 

MATHEMATICAL AND NUMERICAL PROBLEM DESCRIPTION 

The prediction of the thermal response of materials to the specified environmental 
conditions requires the solution of the governing heat -transfer equations subject to the 
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imposed boundary conditions. The basic procedure employed in this program requires 
that the engineer divide the specific configuration (body) of interest into a system of small 
volumes (blocks) and describe by the inputs, the size, orientation, material composition, 
and modes of heat transfer for each individual block and the interrelationships between 
the blocks. With these inputs the machine selects the appropriate finite-difference heat- 
balance equations for each block and solves the resulting matrix for the temperatures of 
the blocks as a function of time. In this section are described the thermal -balance equa- 
tions for the individual blocks, the convective heat -transfer options, and the finite- 
difference algorithm for the solution of the governing equations. A specific example 
of the procedure for the finite-difference solution is included. 

General Heat-Balance Equation 

The following forms of the general heat -balance equation are given, each term being 
defined for use: 

^conv “ ^cond “ ^air-cond " ^rad-in “ Qjoint " ^rad-out " ^stored = 0 
For convection: 

where 


(^conv)^ “ hAi(T r - T w ) 
or 

(Qconv)^ = hAj.(i s - %) 
or 

(^conv)i = Qi-^i 
or 

(9conv)j = ^i^i( T r “ T w) 


(Van Driest (refs. 3 and 4) and (1) 

Sibulkin (ref. 5)) 

(Detra-Kemp-Riddell (ref. 6) and (2) 

Cohen (ref. 7)) 

(Heating rates given) (3) 

(Heat -transfer coefficient and recovery (4) 

temperature input) 


For conduction: 

(Scond^ = ( A ^cond) i k + (^cond)^ + • • • + ( A Qcond) i j 


(5) 
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where k, l, and j represent the designated numbers of the blocks which touch block 
and each term on the right-hand side of equation (5) takes the form of the following 
example: 




d i *j 
■ + 

k m,i k m,j 


i, 


( 6 ) 


The (AQ conc j). . is the net rate of conductive heat exchange between block i and 

block j at a given time, Ay is the area of block i which touches block j, and dj 
and dj are the dimensions (either length or width) of blocks i and j, respectively, in 
the direction of the conductive heating. 


For air -conduction: 


/ ■ \ ^ir^n^i " ^n) 

vQair-cond/j " 


CO 


where k a i r is the conductivity of air and n denotes the block number of the block 
opposite the air gap. 

For radiation-in (infinite parallel plates) (ref. 8): 



( 8 ) 


where T' is the temperature at the beginning of the computing interval and n denotes 
the block number of the block opposite the air gap. This expression is strictly correct 
only for infinite parallel plates. It should be noted that Q a ir-cond and ^rad-in are 
always used together. 

For the joint (interface between materials) (ref. 1): 

\ _ ^'^l,n('^'i ” ^n) 

int A = 2 , dj t d n 

h j k m,i k m,n 

where n denotes the block number of the block opposite the joint, and hj is the joint 
coefficient. 



7 



For radiation-out: 


(^rad-out)^ “ ^i-^i^i (10) 

It should be noted that the radiation-out term generally applies for external surfaces 
radiating to space whereas the radiation-in term represents a radiation exchange between 
two surfaces at different temperatures. 

The radiation-out term may also be used in the following linear form (see 
appendix A) : 


(Qrad-out)! = <*i A i(2T; 3 T 1 - Tj 4 ) 

For heat stored: 

/. \ c p,iPm,i v i( T i ~ T i) 

\ stored^ ^ 


(id 


(12) 


where c p ^ and p m?i are the specific heat and density, respectively, of the material 
of block i, and At is the delta time or computing interval. 

Convective Heat -Transfer Equations 

To compute the free -stream conditions used in the convective heating options of the 
program, a trajectory consisting of altitude and velocity tables as functions of time are 
given. By using the altitude table, the values of p M , p^, T^, and a M are determined 
from the 1962 U.S. Standard Atmosphere (ref. 2). The viscosity is computed from 
the following relation (ref. 9): 


(2.27 x 10“8 )t oo 1 / 2 
Moo_ 1 + 0 

where 0 = 1 ^^ — 5 and 11 m has the units lb-sec/ff2. 

*■* OO 

The convective heat -transfer equations for the flow over a flat plate or cone and for 
the stagnation region of blunt bodies are given. 

Flat plate or cone . - The convective heating rates to a flat plate or cone are com- 
puted from the Van Driest equations (refs. 3 and 4) for either the laminar or turbulent 
flow of air as follows: 
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Laminar flow: N Re e < input transition Reynolds number 


N St = K 


fl(M e ) + f 2 (M e )^ 




( 13 ) 


where 


f^Me) = 0.416594 - 0.00246733M e - 8.17489 X 10~ 4 M e 2 + 2.734033 X 10' 5 M e 3 
f 2 (M e ) = -0.0134671 + 2.635807 x 10-4 M e + 5.818944 X 10" 5 M e 2 - 2.173257 X 10" 6 M e 3 




K = 1 (Flat plate) 
K = \[3 (Cone) 




(14) 


(15) 


A Stanton number Ngf- is computed for each convective block, where the wall tempera- 
ture T w is taken to be the temperature of the individual block at the beginning of the 
computing interval T[. The subscript e refers to the local flow conditions at the edge 
of the boundary layer which are determined from input ratios of local to free-stream 
conditions. 

The Stanton number expressions (eqs. (13) and (14)) were obtained from curve fits 
to the Van Driest heat -transfer results in air for the flat-plate laminar boundary layer 

iqo Ot> 

(ref. 3) at Np r = 0.75, 6 = — = 0.505. A comparison of the original results and 

T e 

the correlation is shown in figure 1. The correlation is accurate to within 3 percent over 
the range of M e = 0 to 20 and T W/ /r e = 0.25 to Ty^/Tg = 6.0. 

The heat -transfer coefficient is determined from the relation: 


■' = NstPe(cp) perlec V eg (16) 

For laminar flow the recovery temperature T r (ref. 10) is 

T r = (Np,.) 1 ^ - T e ) + T e (11) 


where the laminar recovery factor is approximated by Np r ^/^. 
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The specific heat Cp is that of low-temperature air (y = 1.4); that is, 

(c v ) = 0.24 Btu/lb-°R (1004 JAg-°K) (18) 

\ ^/Perfect 

and the stagnation temperature for y = 1.4 (ref. 10) is 

T s = T^l.O + 0.2MJ) (19) 

Turbulent flow: Nj^ e>e = Input transition Reynolds number. 

The Stanton number is related to the local skin friction by a modified form of 
Reynolds analogy which for turbulent flow (ref. 4) is 

Ngt = 0.6Cf (20) 


The Van Driest relation for the local skin-friction coefficient Cf (ref. 4) is 
expressed implicitly as 


T/o^n -1 a + sin_1 6 ) = 0A1 + lo Sl0 N Re,e c f " °- 76 lo Sl0 

,^r 


where 


a = 


2| 2 - p 


6 = 


(ip 2 + 4 ^ 2 ) 
£ 


1/2 


(y/ 2 + 4^ 2 ) 


1/2 




T w /T e 




i + r^l Me 2 


I’w/l’f 


Tw 

T e 


( 21 ) 


( 22 ) 
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The iteration of c f is avoided by utilizing the curve fits for c f developed by Lee 
and Faget (ref. 11). The Lee and Faget correlation equation is 


c f = 


C f,o 



N Re,e\ N 
106 ] 


(23) 


The reference skin-friction coefficient c* Q is evaluated at N Ree = 10® and is 
obtained from table I as a function of M e and T^/T e . 

N = Ci + C 2 M e (24) 


where 


v0.5' 


668.12 + -1826.3756 + 9737.6 


L w ' 


Ci = 


4868.8 


=0.0019 - 0.0001 
2 T e 


(25) 


K’ =1.0 (Flat plate) 
K’ =0.5 (Cone) 


(26) 


Comparisons of the flat -plate skin-friction results obtained from equation (21) and 
equation (23) are shown in figure 2 as functions of N Rej6 for various values of T W/ /T e 
and M e . Over the ranges of N Re>e , M e , and T W/ /T e shown in the figure, the corre- 
lation is accurate within 3 percent. 

The recovery temperature for turbulent flow (ref. 10) is 

T r = N Pr 1 / 3 (T s - T e ) + T e (27) 

where the turbulent recovery factor is approximated by Np r ^/ 3 . The heat-transfer 
coefficient, specific heat, and stagnation temperature expressions given in the laminar - 
flow section (eqs. (16), (18), and (19)) are the same for turbulent flow. 
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TABLE I.- REFERENCE SKIN- FRICTION COEFFICIENTS 


NRe,e * 10® 



Reference skin-friction coefficient Cf j( 

for T w / 

T e of- 


M e 

0.2 

0.6 

1.0 

2.0 

3.0 

4.0 

6.0 

0.5 

0.005100 

0.004170 

0.003673 

0.002990 

0.002610 

0.002350 

0.002005 

1.0 

.004904 

.004070 

.003603 

.002948 

.002578 

.002328 

.002000 

2.0 

.004290 

.003709 

.003345 

.002800 

.002475 

.002251 

.001950 

3.0 

.003596 

.003258 

.003005 

.002593 

.002328 

.002137 

.001875 

4.0 

.002978 

.002812 

.002652 

.002357 

.002153 

.002000 

.001779 

5.0 

.002475 

.002417 

.002325 

.002126 

.001974 

.001854 

.001675 

6.0 

.002078 

.002084 

.002036 

.001907 

.001798 

.001708 

.001566 

7.0 

.001764 

.001809 

.001788 

.001711 

.001635 

.001568 

.001460 

8.0 

.001516 

.001581 

.001582 

.001539 

.001489 

.001441 

.001357 

9.0 

.001317 

.001394 

.001407 

.001389 

.001357 

.001323 

.001262 

10.0 

.001156 

.001237 

.001258 

.001259 

.001241 

.001218 

.001173 

12.0 

.000913 

.000995 

.001025 

.001047 

.001046 

.001039 

.001017 

13.0 

.0008208 

.0009016 

.0009322 

.0009598 

.0009652 

.0009630 

.0009500 

14.0 

.0007425 

.0008209 

.0008523 

.0008838 

.0008934 

.0008950 

.0008887 

15.0 

.0006755 

.0007512 

.0007828 

.0008168 

.0008295 

.0008341 

.0008331 

16.0 

.0006177 

.0006905 

.0007219 

.0007576 

.0007724 

.0007793 

.0007825 

18.0 

.0005236 

.0005905 

.0006208 

.0006578 

.0006755 

.0006853 

.0006944 

20.0 

.0004507 

.0005121 

.0005409 

.0005777 

.0005967 

.0006082 

.0006210 


Some general comments are in order concerning the Van Driest equations as pro- 

h 

gramed. The final form of the programed convective heat-transfer equations are 

restricted to air (that is, y - 1.4, ix ~ f(0), where 6 = = 0.505, and 

' \ 1 e 

Cp = 0.24 Btu/lbm-°RJ. Further, the local flow conditions must be within or near the 

region of the correlations and tables where M e § 20 and 0.2 2 T W/ /T e £ 6.0. For 
turbulent flow, the additional restriction is 10 ^ £ NR e?e £ 10®. Most of the flight aero- 
dynamic heating cases will be within these local flow regions. However, the basic 
assumptions of Van Driest, namely, a perfect gas which has Cp = Constant, and y - 1.4 
introduce fundamental restrictions in the intermediate to high free -stream Mach number 
ranges (above about M a = 10) where the real-gas effects become significant. 
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The reference enthalpy methods of Eckhert (ref. 12) for laminar and turbulent flow 
are among the more widely accepted methods for computing heating rates in high tempera- 
ture air. Since it is not advantageous to incorporate heating theories based on real-gas 
properties within this program because of the amount of time involved to compute heating 
rates at intervals of 0.1 or 0.2 second, it is recommended that for the high-temperature 
real-gas environment problem, the heating rates be generated from the appropriate 
theory by separate computations and then these rates input to this program to determine 
the thermal response of the skin. 

Spherical or blunt-nose bodies stagnation region .- For spherical bodies several 
options are available: 

(1) Sibulkin (ref. 5) option where V TO < 5000 ft/sec (1524 m/sec) and 



Sibulkin’s expression for the stagnation-point heat -transfer coefficient is 


h = 


0.763 Np r °- 4 ka lr>s 



(28) 


where /3 is the tangential velocity gradient at the stagnation point. This relation is 
correlated in terms of free -stream conditions to yield a more tractable expression for 
machine computations. The resulting expression for local heating, in terms of the 
stagnation -point heating equation developed in appendix B, becomes 


h = 


BgP„V„(Cp) 

i i ■ ■■■ yi 

(N Re , co/ft r n ) 1/2 


B = 0.80 + 0.541Moo - 0.00574M oo 2 


(29) 


(30) 


(CrA = 0.24 Btu/lb-°R 

' ^'Perfect 

where h is in Btu/ft^-sec, r n is the nose radius in feet, and p m is in slugs/ft 3. The 
ratio of the local heating to the stagnation heating is denoted by 77. This relation is a 
required input for each convective element (block) when the stagnation-heating option is 
used. These ratios may be determined from Lees (ref. 13). The stagnation temperature 
is 

T g = T ^(l.O + 0.2Moo 2 ) (31) 


19 



(2) Detra-Kemp -Riddell (ref. 6) option where 5000 =Voo = 20 000 ft/sec 
(1525 m/sec = Voo = 6100 m/sec) and 

Q = hA(i s - i w ) 


(0.447 x 10-8 ) Poo °- 5 V to 3 - 15 

h r n V2(i s - l») ” 

xr 2 


i c = 


s ” 50000 


+ 0.24T C 


( 32 ) 


(33) 


i w =0.0686(z^) T w 


(34) 


where h is in lbm/ft^-sec and i s and i w are in Btu/lbm. The temperature, T w , 
is the temperature at the beginning of the computing interval and the term in parentheses 

= f(p g ,T w ) is determined from Hansen's tables for air (ref. 14). The stagnation 
pressure p s is determined from the AEDC tables (ref. 15); that is, 

P S = P 

where 



2S- = f(alt,vJ 


(3) Cohen (ref. 7) option where = 20 000 ft/sec (6100 m/sec) (The Cohen 
option may be used not only for velocities above 20000 ft/sec (6100 m/sec) but also for 
the entire range if specified) and 


Q = hA(i s - i w ) 


/ \ -0.6/ \U.43/ V 

h - 0.767g(Sfp rjW J^ \ e ^ e ) s (Pw^wj 


\0.43 . 


v0.07 

/s 




n0.25 


'e,s 


Gi(id) 


(35) 


k n 
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where the double subscripts e,s and w,s refer to the conditions at the edge of the 
boundary layer along the stagnation line and the condition at the wall at the stagnation 
point, respectively, 


— 


s 50 000 


+ 0.24T 


( 36 ) 


i w = 0.0686(Z =L) T. 


v rtv w 


(37) 


where h is in lbm/ft^-sec and i s and % are in Btu/lbm. The quantities ~ - S , 

- on 


-, and 


^e,s 


are obtained from reference 15 as f (alt, V^) and 

Ps 


Ps = P=cp 


A e.s 

T = T * 
A e,s X <=0 m 

A oo 


Pe,s ~ P oo p 


Pe,s 


M 0 , s H 1 e,s»P S ; 


M 


w,s 




o,w 


= f( T W> Ps) 


The viscosity ratios are obtained from Hansen's tables (ref. 14) with linear interpolation 
on temperature and logarithmic on pressure. Then 


M e?s 

M e,s = M o,s /Z^ 


and 


M 




= fi 




w,s -o,w /i 0jW 
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where 


and 


where 




(2.28 x 10~ 8 )T e s 3 / 2 


"\ 


T e,s + 2016 


lb -sec/ft 2 






o,w 


j2.2 8X 10-S)T w ^i b . sec/ft 2 


+ 201.6 


j 


p w = (5.825 X 10-4)-£L stags/ftS 



from Hansen’s tables (ref. 14) 


( 38 ) 


(39) 


where 


id = 


8465 


50 000 


(40) 


Glfd) - I " 

Gi(i d ) = 1.0 + 0.075'^ - 2^ 



(4) Cohen option over entire velocity range: Below a velocity of 5000 ft/sec 
(1525 m/sec), the following perfect gas relations apply for y of 1.4 (ref. 9): 



(42) 


= 1 + 0.2M ro 2 


(43) 


22 



( 44 ) 



Comparisons of the heat-transfer coefficients predicted by the theories of Cohen, 
Sibulkin, and Detra, Kemp, and Riddell, are shown in figure 3 as a function of altitude for 
a range of velocities. It is noted that there is little difference between Cohen and Sibulkin 
theories at the lower velocities and between Cohen theory and the Detra, Kemp, and 
Riddell correlation of experimental data at the intermediate velocities. 

Nonspherical blunt bodies will now be considered. The foregoing stagnation heating 
equations are applicable only for a sphere; however, the inputs can generally be manipu- 
lated to compute accurate heating rates to arbitrary axisymmetric bodies and to cylinders. 

For instance, the proper stagnation heating rates to ellipsoids of body bluntness 
ratios greater than unity and to Apollo-type configurations can be obtained by replacing 
the body radius of curvature at the stagnation point with an "effective radius" input. Zoby 
and Sullivan (ref. 16) provided a method for obtaining the effective nose radius values for 
these configurations. However, if one is also interested in the heating-rate distributions 
around the blunt forebody away from the stagnation point, further flow-field details are 
required to generate the necessary inputs. 

The stagnation heat flux to a cylinder can also be related to the stagnation heat flux 
on a sphere by changing the nose radius input. For instance, at low supersonic free- 
stream Mach numbers, the heating rate to the cylinder is approximately 0.92 times that 
of the sphere. (See ref. 13.) Since q conv r n "V2 5 the nose radius input to the program 
should be (0.92) ~2 or 1.18 times greater than the actual radius of the cylinder being 
studied. In the supersonic -hypersonic regimes, M > 5, the proper factor is more nearly 


**cyl 0.763 ^sphere ®’^^sphere 

(See Cohen (ref. 7) and Truitt (ref. 10).) Thus the nose radius input should be 1.79 times 
greater than the actual radius of the cylinder. No provision is included in the program 
for a change in the nose radius within a given computer run. However, one can generally 
establish within the constraints of the problem which heating-rate factor applies. For 
instance, for low velocity flights if Moo is about 2 to 5, then the 1.18 factor should be 
applied, particularly if the problem is one of thermal design. Whereas for hypersonic 
entry speeds, the primary heat pulse generally occurs at the higher velocities and thus 
the 1.79 factor should be used. 
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Heat- transfer coefficient , . conv^ 




1/2 


( Btu / ft 2 - sec ) (ft ) 1/2 
(Btu/ibm ) 



m 




Figure 3.- Comparison of the stagnation-point heat-transfer coefficients from Cohen, Sibulkin, and Detra, Kemp and Riddell 

i w = 200 Btu/lbm (465 kJ/kg). 
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For swept cylinders, it is recommended in reference 17 that the heating factor on 
the stagnation line be used to compute the appropriate radius input as follows: 

^cyl,A*0 = ^cyl,A=0^ cos A ^' 5 ( 46 ) 

Geometry Layout for the Physical Problem 

The configuration is divided into small volumes or blocks at the discretion of the 
user. (Present restrictions of storage areas allow a maximum of 100 divisions and is 
limited to only 30 for the case of calculating heating rates from known temperatures.) 

The geometry of these divisions and their heat relationships are then given as input to the 
program. The program computes the temperatures of these divisions or blocks at their 
centers. The program is also restricted to the use of only ten materials in one configu- 
ration at any one time. 


Finite -Difference Solution 

The implicit form (backward difference) of the heat -balance equations is used in 
this program, the finite-difference network coming from the division of the configuration 
being analyzed into small volumes called blocks. The mass of each block is considered 
to be concentrated at its center of gravity, and heat is assumed to flow from block to 
block over a distance equal to that between the centers of gravity and through an area 
equal to the touching surfaces. 

The following example illustrates the procedure for the finite -difference solution. 
Consider the simplified case of a thermally thick skin in which the exterior surface is 
subjected to convective heating and the back wall is insulated. The exterior surface is 
permitted to radiate, and the remaining heat -transfer mode is the exchange of heat 
between blocks by conduction. The configuration is shown in sketch (a). 
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Sketch (a) 
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The heat-balance equation for each block is 


Qconv “ ^rad-out " ^cond ^stored 


(47) 


By using this form of the general heat -balance equation and choosing block 2 as an 
example, the following equations arise. By considering each term separately, 


(^conv)2 “ k^2( T r " T 2) 


(48) 


where A2 is surface area of block 2 


(Qrad-out) 2 = <*2 a 2 ( t 2) 


t\4 


(49) 


and the conduction terms are 


h-¥t 


k m,2 k m,l 


(50) 


( A Qcond) 


2A 2,3( t 2 " t 3) 


2?3 12 + I3 


c m,2 K m,3 


(51) 


(AQcond) 


2 a 2, 5 ( T 2 " T 5 ) 


2,5 w 2 W5 


k m,2 k m,5 


(52) 


where k m is the conductivity of the material of the specified blocks. 


(Qcond) 2 ~ ( A Qcond) 2j i + ( A< ^cond) 2; 3 + ( A Qcond) 2j 5 


(53) 


and finally 


( < ^stored) 2 ( p m,2) v 2 c P,2 


T 2 -T 2 

At 


(54) 


26 



where T 2 is the previous temperature of block 2 and At is the specified time incre- 
ment. The thermal properties c p , k m , and e are based on T* for the specific 
block. Summation of these terms yields 


Let 


and 


( p m,2) v 2 c p.2 



= hA 2 (T r - T 2 ) - 0£ 2 A 2 T 2 4 


2A 2,l(T 2 - T t ) 

J2_ + Jl_ 

k m,2 k m,l 


2A 2,3( T 2 ~ T 3) 2A 2,5( T 2 - T 5) 

J2_ + J3_ " w 2 [ w 5 

k m,2 k m,3 k m,2 k m,5 


(55) 


Cl 


2A 2,1 ^ 

h + h 


k m,2 k m,l 


Co 2A2 - 3 ■ 

l l , > 

k m,2 k m,3 


c 5 = 


2 A, 


2,5 


w 


2 + w 5 


k m,2 k m,5^ 


(56) 


r _ (Pm,2)vcp,2 ^ 

hs At 

C cv = hA 2 ) 

C ro s ae 2 A 2( T 2) 4 


(57) 


Substituting equations (56) and (57) into equation (55) yields 
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C cv (T r - T 2 ) - C ro - C!(t 2 - Tj) - C 3 (T 2 - Tj) - C 5 (T 2 - T 5 ) = C hs (T 2 - T 2 ) 


(58) 


By collecting like terms, equation (58) becomes 

T 2 (-C cv " Ci - Cg - Cg - Cjjg) + CjTj + C3T3 + CgTg = C r0 - C cv T r - CJJQT2 (59) 

At any given time increment, the right-hand side of equation (59) may be evaluated as a 
constant with all parameters known. Thus, equation (59) now becomes 

(“ C cv " C 1 ’ c 3 _ c 5 " c hs) T 2 + C 1 T 1 + c 3 t 3 + C 5 T 5 = Constant (60) 

Therefore, energy balance equations can be written for each block in a configura- 
tion resulting in a set of simultaneous equations which are solved by a matrix subroutine 
at each time interval giving a temperature distribution through the blocks. 

Thin Wall Option 

A special option, subroutine THINWAL, is included in the program to compute the 
heating rate and temperature time histories for a thermally thin skin. The thickness of 
the single block of unit surface area is specified by the user. The inputs of width, length, 
volume, and the conduction, convection, and radiation areas are not required for this 
special case. 


Inverse Solution Option 

When the temperature of one of the block divisions is known and the heating rate is 
unknown, the inverse option may be used to calculate heating rates from the known tem- 
perature time history of the block as input. (See ref. 18.) The solution is restricted to 
one -dimensional cases. 

This option uses the equation in which the convective heating term appears in the 
heat flux equation; and by a process of reordering the equations for each of the unknown 
temperatures, a new system of simultaneous linear equations is set up. This system is 
solved by a library subroutine SIMEQ (see appendix C) which solves the matrix equation 
AX = B (where X denotes the unknown variables, A is a square coefficient matrix, and 
B is a vector of constants). The heating rate, rather than the known temperature, is 
evaluated by the subroutine. 

If there are more temperature monitoring locations in the skin, the additional infor- 
mation can be incorporated into the solution for the convective heating-rate time history. 
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The program is written to accommodate as many as four known temperature time his- 
tories of the blocks. Basically, the procedure is to sum the temperatures recorded at the 
various locations (blocks) at a given time and then to replace one of the known tempera- 
tures in the finite-difference equations with the numerical sum of all the known tempera- 
tures minus the functional form for the monitored temperatures of the remaining blocks. 
Consider, for example, sketch (b) which illustrates the inverse solution procedure. 


Qrad Qconv 



Sketch (b) 


If the temperature histories of blocks 2, 4, and 6 are known, and if block 2 is chosen as 
the ’’pivotal'’ element, which means that everywhere T2 appears in the governing equa- 
tions, it is replaced by the numerical sum of T2 + T4 + Tg s T less T4 and Tg 
(where T4 and Tg are now taken to be unknown a priori), then the finite -difference 
equations become 

For block 1, 



where k m2 is evaluated at the previous temperature T 2 = T* - T4 - Tg. 

For block 2, 

2A 2 ,l[Ti - (T - T 4 - Tg)] 2A 2 3 [T 3 - (T - T 4 - Tg)] (T - T 4 - T g ) - T 2 

— + — ^7^ = p -,2 v 2 c p,2 ^ 

km, 2 ^m,l ^m, 2 ^m,3 
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For block 3, 


2A 3;2 [(T - T 4 - Tg) - T 3 ] 2A 3;4 (T 4 - T 3 ) T 3 -T 3 

Z3 lo £3 l a ^m,3 3 p,3 At 

k m,3 k m,2 k m,3 k m,4 


et cetera. 

In this example there are seven equations and seven unknowns, Q con v» Ti, T3, 
T4, T5, T6, and T7. The solution is obtained from the SIMEQ subroutine. This 
method is based on the assumption that random errors in thermocouple readings will tend 
to balance out when summed, and although the sum of the known temperatures remains the 
same, the solution may not give temperatures of the known blocks which are equal to their 
individual input temperature -time histories. However, for reasonably accurate thermo- 
couple data and material properties, the computed individual temperatures should be 
fairly close to the measured data. 

Note that for multiple thermocouple data, the known block nearest the heat source 
(namely, the lowest numbered block for which the temperature is known) is used as the 
pivotal element for the heating-rate computation. 

PROGRAM DESCRIPTION, FLOW CHARTS, AND LISTINGS 


Program Description 

In the following pages the program, its subroutines, and their functions are given. 

A graphical representation of the communication between the program and its subroutines 
follows. A brief description of each subroutine is followed by its flow diagram and 
listing. 

Program Description 


MAIN 

VANDR 

STAG 

TRAJ 


Reads and writes NAMELIST input, initializes program variables, 
and controls program flow 

Computes the heat -transfer coefficient using Van Driest equations 

Computes the heat -transfer coefficient using Sibulkin, Detra-Kemp- 
Riddell, and Cohen equations 

Computes local and free -stream conditions 


COND 


Computes conduction coefficient 
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RADQUT 

AIRGAP 

JOINT 

COMPMTX 

THINWAL 

CONV 

INVSOL 


Computes radiation-out coefficient 

Computes the coefficients for conduction and radiation across 
an air gap 

Computes the joint coefficient 

Solves the packed coefficient matrix for temperatures 
Solves a simplified thin-wall case 
Computes the final heating-rate coefficient 

Solves the coefficient matrix when an inverse solution is desired 


The directed flow diagram of program D1244 follows: 
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A detailed listing of FORTRAN variables used in the program and their descriptions 
is contained in the "FORTRAN Variable Description" section and within the listing of the 
MAIN program. These variables appear at the beginning of the listing as comments fol- 
lowing the initial reference of each variable. Also, pertinent details as to internal control 
for specific options are included with these variables. 


ACOND 

ACRADI 

AIRK 

AJOINT 

AKMTAB 

AK1 

AK2 

ALPHA 

ALT 

ALTTAB 

ARRAY1 

ARRAY2 

ARRAY3 

ATAB 

BETA 

CFMTAB 

CFR 

CFS 

CFTAB 


FORTRAN Variable Description 
conduction areas 

storage for air-gap information 

average value for conductivity of air 

storage for joint information 

table values for conductivity of air 

conductivity of air for operating block 

conductivity of air for block opposite air gap 

fl(M e ) (eq. (14)) 

value of altitude from table values 

table values of altitude from input trajectory 

POP/PI tables (pitot to free-stream pressure ratio) 

ROP/Rl tables (normal shock stagnation to free-stream density ratio) 

TOP/Tl tables (normal shock stagnation to free-stream temperature 
ratio) 

altitude table for normal shock-wave parameters 
f 2 (M e ) (eq. (14)) 

Mach number table for skin-friction coefficient 
c f,o 

Cf 

reference skin-friction-coefficient table 
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CFTTAB 

CH 

COEF 

COHEN 

CONST 

CONVRO 

CPIDEAL 

CPTAB 

CPVAL 

CROAREA 

D1 

D2 

DELTAT 

DELTEMP 

EMS 

EMSS 

EMSVAL 

EMI 

EM2 

FPCONE 

G 

G1TE 

HIPTS 

HITIME 


temperature ratio table for skin-friction coefficients 

Nst 

array of heat coefficients for matrix solution 
control for option to use Cohen equations 
storage for constant part of block equations 
storage for convection and radiation-out information 

( p) Perfect 

tables of specific -heat values for materials 
value of specific heat from table 
convection and radiation-out areas 
width or length of operating block 
width or length of touching block 
computing interval (delta time, At) 
change in temperature over time interval 
storage for emissivity information 
value of emissivity in subroutine RADOUT 
value of emissivity in subroutine THINWAL 
emissivity of operating block 
emissivity of block across air gap 
control for flat plate or cone 
acceleration due to gravity 
G l(id) (eq- (41)) 

number of points in heat input tables 
table of times for given heat input 
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HSUBDIF 

*s " % 

HSUBR 

is 

HSUBW 

iw 

HTAB 

table of values for h given as inputs 

HVAL 

h 

ICONVQ 

control for heating options 

ICROBLK 

convection and radiation-out block numbers 

IDIFF 

control for different heat input tables 

IDIM 

configuration control 

fflORQ 

control for program flow 

IMAT 

material number currently in use 

INVBLK 

inverse block number currently in use 

INVBLKS 

inverse block numbers 

INVERSE 

control for inverse option 

INVRT 

control for program flow 

IORDER 

order of interpolation 

IPFCT 

counter for print frequency 

IPTS 

storage for number of table values 

IQORH 

control for heating rates given as input 

IROUTE 

control for program flow 

ITBLK 

block number of touching block 

JTBLK 

block number of joint block 

KMTAB 

tables of conductivity values for materials 

LEN 

lengths of blocks 
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LINEAR 

LOCH 

LOCQ 

MACTAB 

MAT 

MFS 

MFSTAB 

MLOCL 

MUFS 

NACBLK 

NAIRGAP 

NAKMPT 

NAVPTS 

NBLOCK 

NCDCT 

NCPPTS 

NHOR 

NJOINT 

NKMPTS 

NO 

NOCONV 

NOINV 

NOINVT 

NPRS 


control for linearizing 

location of h 

location of Q 

Mach number ratio table 

material numbers of blocks 

free-stream Mach numbers, Moo 

table of Mach numbers for ratio evaluations 

local Mach number, M e 

* co 

number of air conduction block 

number of air gaps 

number of values in k^m tables 

number of values in trajectory input 

current block number 

counter for conduction terms 

number of Cp table values 

number to determine matrix storage 

number of joints 

number of k m table values 

number of blocks 

number of convection blocks 

number of inverse blocks 

number of values in inverse temperature table 
number of values in table 
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NRADO 


NRATAB 

NRATIO 

NRATPT 

NTOUCH 

NUMCD 

PELOG 

PERCRNL 

PESTAG 

PFS 

POPP1 

PRESTB 

PRFREQ 

PRNO 

PRNOTB 

PRWSTG 

PR2TAB 

PR3TAB 

QCONV 

QTAB 

QVAL 

RADIAT 

RADNOSE 

REYTAB 


number of radiation-out terms 

number of ratio table 

control for ratio table number 

number of points in ratio tables 

numbers of touching blocks 

number of conduction terms for current block 

LOG(p s ) 

77 or Reynolds number lengths 

Ps 

free-stream pressure, p TO 

POP /PI (pitot to free-stream pressure ratio) 

pressure table (log) 

print frequency 

value of Prandtl number 

table of Prandtl number values 

( N Pr,w) s 
table of Np r ^^ 

table of 
value of q 

table of q values when given as input 

array in which computer values of heat-transfer coefficients are stored 

radiation-out term in subroutine THINWAL 

nose radius, r n 

Reynolds number ratio table 
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RHO 

RHOLOCL 

RHOSF3 

RHOSTAG 

RHOTAB 

RNEXP 

RNFS 

RNLOCL 

RNPFL 

ROPRl 

ROWSTAG 

TAW 

TAWTAB 

TCPTAB 

TCUBED 

TEMINV 

TEMP 

TEMPINV 

TEMTAB 

TEST AG 

TFS 

TIME 

TIMEAV 

TIMSTOP 


density of material, P m? i 
local density, p e 

p, slugs/ft3 

Ps 

density ratio table p e /p ^ 

N (eq. (24)) 

free-stream Reynolds number, Nj^ e oo 

local Reynolds number, 

local Reynolds number per foot, Np^gy/ft 

ROP/R1 (normal-shock stagnation to free-stream density ratio) 
P w,s 

value of adiabatic wall temperature, T r 

table of TAW values when H and TAW are given inputs 

table of temperatures for all Cp tables 

ip3 

inverse temperature table 
temperatures of blocks 
temperature of inverse block 
temperature ratio table 

T e,s 

free-stream temperature, T^ 
current time 

time table for trajectory input 
stopping time 
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TINY 


table of times for given temperature inputs 


TKMTAB temperature tables for all k m values 

TLOCL local temperature, T e 

TMPTAB temperature table for viscosity and enthalpy 

TOPT1 TOP/T1 (normal-shock stagnation to free-stream temperature ratio) 

TPRTAB temperature table for Np r 4 /^ and Np r 4 /^ 

TRANRN transition Reynolds number 

TRAT temperature ratio, V T e 

TREC T r 

TSTAG T s 

TSUBE i d 

TTKTAB table of temperatures for k m values 

TWDEPTH thin-wall depth 

T1P4 Tj 4 

T2P4 T 2 4 

UESTAG [L _ 

UEUREF ^efro 

UEURTAB viscosity ratio table 

UREFS n 0)S 

UREFW M 0)W 

UWSTAG P WjS 

UWUREF M W/ /p 0 

VALCP value of c p of material 

VALK1 value of k m of operating block 
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VALK2 


VELTAB 

VERTAB 

VFS 

VLOCL 

VOL 

VTAB 

WD 

WVCP 

ZHRT 

ZHRTAB 

ZPRTEM 

ZTAB 

ZW 


value of k m of touching block 
table of velocities for input trajectory 
velocity ratio table, V e /V <*, 
free -stream velocity, 
local velocity, V e 
volume of blocks 

velocity table for normal shock -wave parameters 
widths of blocks 



MAIN 

Program MAIN is the control program. It reads and writes NAMELIST input, 
initializes, and sets up controls for flow of program as designated by input values. This 
control program then calls the designated subroutines for solution, writes the output, and 
either updates and continues solution or terminates according to input specifications. The 
flow diagram of program MAIN follows: 
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The MAIN program listing follows 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

#■ 

* 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

# 

* 

* 

* 

* 


# 

# 

# 

* 

* 

* 


PROGRAM D 1 244 ( ! NPUT , OUTPUT * TAPES* I MPUT * TAPE6“0UTPUT ) 060 1 

COMMON T I ME*DELT AT <* T I MSTOP * PRFREQ t NO $ ID I M « I CONVQ *G * 0002 

1 TEMP (100), CONST (100) 0003 

TIME *ST ART I NG TIME 0004 

DEL.TAT “DELTA TIME 0005 

T I MSTOP* STOPPING TIME 0006 

PRFREQ *PR I NT FREQUENCY 0007 

NO =NO OF BLOCKS 0008 

ID1M, 0*THIN WALL 0009 

1 “ONE-D I MENS I ONAL 0010 

2 = TW0-D ! MENS I ONAL ( RECTANGULAR ) 0011 

ICONVQ , 0* INVERSE SOLUTION 0012 

CHEATING RATES ARE GIVEN 0013 

2*STAGNAT I ON OPTION 0014 

3* VAN DRIEST OPTION 0015 

4=ST AGNAT I ON AND VAN DRIEST COMBINATION 0016 

G *GRAVITY 0017 

TEMP *TEMPERATURES OF THE BLOCKS 0018 

CONST =STORAGE FOR CONSTANT PART OF BLOCK EQUATIONS 0019 

COMMON /ALLCONV/ CONVRO ( 30 * 5 ) ♦ IDIFF * NOCONV *QCONV (30 ) « 0020 

1 TAW (30 ) , I HORQ 0021 

CONVRO- COL 1 = ICROBLK (CONVECTION AND RAD * OUT BLOCK NOS) 0022 
COL 2 =CROAREA (CONVECTION AND RAD* OUT AREAS) 0023 

COL 3 =PERCRNL (EITHER PERCENTS OR REY*NO LENGTHS 0024 


COL 4 = IQORH (WHEN HEATING RATES ARE GIVEN- THE CODE 0025 
IS 1 IF Q INPUTS AND 2 IF H AND TAW INPUTS) 0026 
OR =NRA TAB (WHEN HEATING RATES ARE COMPUTED THE NO* 0027 


OF THE RATIO TABLE IS GIVEN-ALL ONES IF ONLY 0028 
ONE TABLE) 0029 

COL 5 *HIPTS(NO OF POINTS IN HEAT INPUT TABLES) 0030 

IDIFF *0 IF HEATING RATE TABLES ARE SAME FOR EACH CONV BLK 0031 

*1 IF HEATING RATE TABLES ARE D IFF FOR EACH CONV BLK 0032 

NOCONV -NO OF CONVECTION BLOCKS 0033 

QCONV =STORAGE FOR HEATING RATE IN PROGRAM 0034 

TAW *STORAGE FOR ADIABATIC WALL TEMPERATURE 0035 

1HORQ *TEST FOR OUTPUT HEADINGS CE I THER Q OR H-NOT INPUT) 0036 

COMMON /T VDASTG/ ALT * VFS * PFS , TFS * MFS * RNFS * RHOSF3 * VLOCL • MLOCL « 00 37 

1 RNPFL * RNLOCL * TLOCL * RHOLOCL 0038 

ALT “ALTITUDE FROM TABLE VALUES 0039 

VFS “FREE— STREAM VELOCITY 0040 

PFS *FREE— STREAM PRESSURE 0041 

TFS “FREE— STREAM TEMPERATURE 0042 

MFS *FREE-STREAM MACH NO 0043 

RNFS = FREE- STREAM REYNOLDS NO 0044 

RH0SF3 = FREE— STREAM DENSITY (SLUGS/CUBIC FT*) 0045 

VLOCL *LOCAL VELOCITY 0046 

MLOCL =LOCAL MACH NO 0047 

RNPFL *LOCAL REYNOLDS NO /FT* 0048 

RNLOCL “LOCAL REYNOLDS NO* 0049 

TLOCL “LOCAL TEMPERATURE 0650 

RHOLOCL^LOCAL DENSITY 0051 

COMMON /CVONLY/ HI T I ME (200 ) ♦ HTAB < 200 ) *TAWTAB ( 200 ) *QTAB ( 200 ) 0052 

HITIME “TABLE OF TIMES FOR GIVEN HEAT INPUTS 0053 

HTA8 “TABLE FOR H VALUES WHEN H AND TAW ARE GIVEN INPUTS 0054 

TAWTAB “TABLE OF TAWVALUES WHEN H AND TAW ARE GIVEN INPUTS 0055 

QTAB “TABLE OF Q VALUES WHEN Q IS GIVEN AS INPUT 0056 

COMMON /ARRAYS/ ARRAY 1 ( I 800 ) * ARRAY2 ( 1 800 ) * ARRAY3 ( 1 800 > » ATAB ( 40 ) * 0057 

1 VT AB (45 ) 0058 

TABLES FOR NORMAL SHOCK WAVE PARAMETERS IN IMPERFECT AIR 0059 

ARRAY 1 “POP/P 1 (PITOT TO FREE-STREAM PRESSURE RATIO) 0060 

ARRAY2 “ROP/R1 (NORMAL SHOCK STAGNATION DENSITY RATIO) 0061 

ARRAY3 “TOP/T1 (NORMAL SHOCK STAGNATION TEMPERATURE RATIO) 0062 

ATAB “ALTITUDE TABLE (FOR ABOVE VALUES) 0063 

VT AB “VELOCITY TABLE (FOR ABOVE VALUES) 0064 
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* 

* 

* 

* 

* 

* 

* 


* 

* 

# 

* 

* 

* 

* 

# 

# 

* 

* 

* 

* 


* 

* 

* 

* 

* 

# 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

# 

* 

* 

* 

* 

* 


COMMON /VDONLY/ TRANRN * FPCONE 0065 

TRANRN -TRANSITION REYNOLDS NUMBER 0066 

FPCONE ^DESIGNATION OF FLAT PLATE OR CONE 0067 

FLAT PLATE * 1 * 0068 

CONE = SQ« RT ( 3 ) OR I *7320508 0069 

COMMON /STGONLY/ COHEN * RADNOSE 0070 

COHEN sCODE IS 0 IF USE OF THESE EQ IS REQ# OVER 20000FT/S 0071 

CODE IS 1 IF USE OF THESE EQ® IS FOR ALL RANGES f STAG) 0072 

RADNOSE«RAD!US OF THE NOSE (STAGNATION OPTION) 0073 

COMMON /TRAJO/ nAVPTS * T I MEAV ( 1 00 ) » ALTTAB ( 100 ) * VELTAB ( 100 ) *NRATPT ® 0074 

1 MFSTAB (25 ) * VERTAB (50 ) * MACTAB (50 ) sREYTAB <50 ) »TEMT AB <50 ) ® RHOTAB (50 ) 0075 

NAVPTS =N0 OF ALT AND VEL POINTS FOR GIVEN TRAJECTORY 0076 

TIMEAV “T I ME TABLE FOR TRAJECTORY 0077 

ALTTAB « ALTITUDE TABLE FOR TRAJECTORY 0078 

VELTAB ^VELOCITY TABLE FOR TRAJECTORY 0079 

NRATPT =N0 OF POINTS FOR LOCAL/FREE— STREAM RATIO TABLES 0080 

MFSTAB =MACH NO TABLE FOR RATIO EVALUATIONS 0081 

VERTAB ^VELOCITY RATIO TABLE 0082 

MACTAB «MACH NO RATIO TABLE 0083 

REYTAB ^REYNOLDS NO RATIO TABLE 0084 

TEMTAB » TEMPERATURE RATIO TABLE 0085 

RHOTAB ^DENSITY RATIO TABLE 0086 

COMMON /CDGEOM/ NTOUCH (5*1 00 ) * ACOND ( 300 > 0087 

NTOUCH =ROW 1 OF THIS ARRAY DESIGNATES THE NO OF CONDUCTION 0088 
TERMS FOR EACH BLOCK <NO REPEATS) ROWS 2-5 ARE THE 0089 

BLOCK NUMBERS OF THESE COND® TERMS <- I ND I CATES WD) 0090 

ACOND ^CONDUCTION AREAS CORRESPOND I NG TO NTOUCH VALUES 0091 

COMMON /M ATPROP/ MAT < 1 00 ) » EMS ( 40 ) • RHO < 1 0 ) « NCPPTS < 1 0 ) * TCPTAB < 1 00 ) « 0092 

1 CPT AB < 1 00 ) 9 NKMPTS U 0 > « TTKT AB <1 00 ) 9 KMTAB (100) 0093 

MAT ^MATERIAL NO OF EACH OF THE BLOCKS 0094 

EMS =EMM1S5IVITY OF MATERIALS 0095 

RHO ^DENSITIES OF MATERIALS 0096 

NCPPTS =N0 OF POINTS IN EACH CP TABLE 0097 

TCPTAB “TEMPERATURE TABLES FOR ALL CP TABLES 0098 

CPTAB a SPEC I FTC HEAT TABLES FOR MATERIALS 0099 

NKMPTS “NO OF POINTS IN EACH KM TABLE 0100 

TKMTA8 ^TEMPERATURE TABLES FOR ALL KM TABLES 0101 

KMTAB =C0NDUCT1VITY TABLES FOR MATERIALS 0102 

COMMON /BLKD1M/ WD ( 1 00 ) « VOL < 1 00 ) * LEN < 1 00 ) * NHOR 0103 

WD ^WIDTHS OF THE BLOCKS 0104 

VOL * VOLUMES OF THE BLOCKS 0105 

LEN “LENGTHS OF THE BLOCKS 0106 

NHOR =N0 OF HORIZONTAL BLOCKS 0107 

COMMON /RADONLY/NRADO«LINEAR 0108 

NR ADO =N0 OF RAD I AT I ON—OUT BLOCKS 0109 

LINEAR *IF 0“ T**4 IS USED AS CONST • IF 1«T**4 IS LINEARIZED 0110 

COMMON /AGONLY/ NA I RGAP » ACRAD I < 4 « 30 ) 0111 

NA I RGAP=NO OF AIR GAPS 0112 

ACRAOI =ROW 1 = NO OF AIR GAP BLOCK 0113 

ROW 2 = NO OF BLK OPPOSITE AIR GAP (GT AIR GAP BLK ) 0114 

ROW 3 “ DISTANCE ACROSS AIR GAP 0115 

ROW 4 = AREA ON AIR GAP 0116 

COMMON /JTONLY/ N JO I NT * A JO I NT ( 4 * 20 ) OUT 

N JO I NT =N0 OF JOINT TERMS 0118 

A JO I NT =ROW 1 =N0 OF JOINT BLOCK 0119 

ROW 2 =BLK NO OF CONNECTING JOINT BLK 0120 

COMMON /THIN/ TWDEPTH 0121 

TWDEPTH=THIN WALL DEPTH 0122 

COMMON / INVRS/ INVERSE » I NVBLK » TEMP I NV«NOlNV 9 I NVBLKS <4 ) « NOI NVT* 0123 
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1 T I NV ( 200 ) *TEMINV<400 ) 0124 

* INVERSE IF 0«NO INVERSE SDL REQU I RED « IF 1 , INVERSE REQUIRED 0125 

* INVBLK = I NVERSE BLOCK NUMBER (USED INTERNALLY) 0126 

* TEMPIIMV=TEMPERATURE OF INVERSE BLOCK 0127 

* NOINV =NC OF INVERSE BLOCKS 0128 

* I NVBLKS = I NVERSE BLOCK NUMBERS 0129 

* NOINVT = NO OF T I ME -TEMPERATURE POINTS AS INPUT 0130 

* TINV =TABLE OF TIMES FOR GIVEN TEMPERATURE INPUTS 0131 

* TEM1NV ^TEMPERATURE TABLE FOR INVERSE BLOCKS 0132 

COMMON /CVTRAJ/NRATIO 0133 

DIMENSION COEF(l00*20)«T0TAL(30) 0134 

D I MENS I ON I CRC3LK ( 30 ) * CROAREA ( 30 ) * PERCRNL < 30 ) ♦ 1 QORH ( 30 ) * HIPTS < 30 > * 0135 

1KM1 (10) *KM2(10) *KM3< 10) *KM4C10) «KM5C 10) «KM6(1 0) »KM7( 10) tKM8( 10 ) • 0136 

2KM9 < 1 0 ) * KM 1 0 ( 1 0 ) ♦ TKTAB 1 ( 1 0 > « TKTAB2 (10)i TKTAB3 (1 0 ) ♦ TKTAS4 < 1 0 ) % 0137 

3TKTAB5 ( 1 0 ) t TKTAR6 (1 0 ) 9 TKTAB7 ( 1 0 ) t TKT AB8 (1 0 ) ♦ TKTAB9 (10)» TKTAB 1 0 < 1 0 ) 0138 

4 * CP 1 ( 1 0 ) • CP2 ( 1 0 ) * CP3 ( 1 0 ) * CP4 ( 1 0 ) « CPS < 1 0 ) 9 CP6 (10)9 CP7 ( 1 0 ) * CPS ( 1 0 ) « 0139 

5CP9 (10) 9CP1 0(10 ) 9 TCPTAB1 (10) 9 TCPTAB2 ( 1 0 ) 9 TCPTA83 U 0 ) fTCPTAB4<10) t 0140 

6TCPTAB5 ( 1 0 ) 9 TCPTAB6 ( 1 0 ) 9 TCPTA87 ( 1 0 ) 9 TCPTAB8 (10 ) 9 TCPT AB9 ( 1 0 ) 9 0141 

7TCPTB10 (10 ) 9 EMS 1 (4) *EMS2(4 ) 9 EMS3 (4 ) 9 EM54 ( 4 ) *EMS5 (4 ) * EMS6 (4 > 9 0142 

8EMS7 (4 ) 9 EMS 8 <4 ) ,EMS9(4) 9 EMS 10(4)91 NDEX < 30 9 2 ) 0143 

DIMENSION NRAT A0 ( 30 ) 0144 

DIMENSION TEMINV1 U00) 9 TEM I NV2 U 00 ) 9 TEMI NV3 ( 1 00 > 9 TEM INV4 < 1 00 ) 0145 

REAL KMTA 89 KMI 9 KM 29 KM 39 KM 49 KM 59 KM 69 KM 79 KM 89 KM 99 KMIO 0146 

REAL MFS 9 MLOCL 9 MFST AB 9 MACT AB 0147 

REAL LEN 0148 

INTEGER COHEN 0149 

INTEGER PRFREQ 0150 

REAL I CROBLK 9 I QORH 9 NRAT AB 0151 

EQUIVALENCE { CONVRO { 1 9 1 ) 9 I CROBLK ( 1 > ) 9 (CONVRO ( 1 9 2 ) 9 CROAREA ( 1 ) ) 9 0152 

1 ( CONVRO (1 93) fPERCRNL( 1 ) ) 9 (CONVRO U 9 4 ) 9 I QORH U ) ) 9 (CONVRO ( 195) 9 0153 

2H I PTS ( 1 ) ) 0154 

EQUIVALENCE (KMT AB ( 1 > *KM1 (1 ) > 9 ( KMT AB (11 ) 9<M2(1 ) ) 9 ( KMTAB (21 ) 9 0155 

1 KM3 ( 1 > ) 9 (KMTAB (31 ) %KM4( 1 ) )• (KMTAB (41 >9<M5(1 ) ) 9 (KMTAB (51 ) 1 KM 6 U ) ) 9 0156 

2 (KMTAB (61 ) 9KM7( 1 ) ) 9 (KMTAB (71 ) 9 KM8 ( 1 ) ) 9 (KMTAB (81 ) 9<M9( 1 ) ) 9 0157 

3 (KMTAB (91 ) 9 KMIO (1 ) > 9 (TTKTAB <1 ) 9 TKTAB 1 (1 ) ) 9 (TTKTAB ( 1 1 ) 9 TKTAB2 ( 1 ) ) 9 0158 

4 ( TTKT AB (21 ) t TKT AB3 ( 1 ) ) 9 (TTKTAB (31 ) 9 TKTAB4 ( 1 > ) 9 (TTKTAB ( 4 1 > 9 TKTAB5 0159 

5(1 ) ) 9 (TTKTAB (51 ) 9 TKTAB6 ( 1 ) ) t (TTKTAB (61 ) #TKTAB7 (1 )), (TTKTAB (71 ) 9 0160 

6TKTABSU ) ) 9 (TTKTAB C8l ) * TKTAB9 ( 1 ) ) 9 (TTKTAB (91 ) 9 TKTABIOU ) ) 0161 

EQUIVALENCE (CPtABU ) 9 CPI (1 ) ) 9 ( CPT AB ( 1 1 ) 9 CP2 ( I ) ) 9 (CPTAB<21 > 9CP3 0162 

1 ( 1 ) ) 9 ( CPTAB (31 ) »CP4( 1 ) ) 9 (CPTAB (41 ) 9 CP5 (1 ) ) t (CPTAB(51 ) 9CP6< 11)9 0163 

2 ( CPT AB (61 ) 9CP7 ( 1 ) ) 9 (CPTAB (71 ) 9 CPS ( 1 ) ) 9 (CPTAB (81 ) *CP9( 1 > )♦ (CPTAB 0164 

3(91) tCPIOC 1 > ) • (TCPTABt 1 ) 9 T CPTAB1 < 1 ) ) 9 (TCPTAB ( 1 1 ) ,TCPTAB2(1 1)9 0165 

4 ( TCPTAB (21 ) 9 TCPTAB3 ( 1 ) ) 9 (TCPTAB (31 ) 9 TCPT AB4 (111* (TCPTAB (41 ) 9 0166 

5TCPTAB5U ) ) 9 CTCpTAB (51 ) 9TCPTAB6( 1 ) ) 9 (TCPTAB (61 ) 9TCPTAB7( 11)9 0167 

6 (TCPTAB (71 ) 9TCPTAB8( 1 ) ) 9 (TCPTAB (81 ) 9 TCPTAB9 (lilt (TCPTAB (91 ) 9 0168 

7TCPTB 10(1)) 0169 

EQUIVALENCE <C0NVR0 ( 1 94 > 9NRATAB< 1 n 0170 

DIMENSION VERT AR 1 (25 ) 9 VERTAB2 ( 25 ) 9 MACTABl (25) 9 MACTAB2 (25 ) ♦ 0171 

1REYTAB1 (25) 9REYTAB2(25) 9 TEMTABI (25) 9TEMTAB2 (25) 9 RHOTABI (25)9 0172 

2RH0T AB2 ( 25 ) 0173 

EQUI VALENCE (VERTAB1 (1 ) 9VERTAB(1 ) > 9 (VERT AB2 ( 1 ) 9VERTAB(26> >9 0174 

1 (MACTABl ( 1 ) 9MACTAB(1 > ) ♦ (MACTAB2 U ) 9MACTAB(26) ) 9 (REYTABl (1 ) , 0175 

2REYT AB ( 1 ) ) 9 ( REYTAB2 ( 1 ) 9 REYTAB (26 ) ) 9 (TEMTAB1 (1 ) 9 TEMTAB ( 1 > >9 0176 

3 (TEMTAB2 ( 1 ) 9TEMTAB(26) ) 9 (RHOTAB1 (1 ) 9 RHOTAB ( 1 1 ) 9 (RHOTAB2 ( 1 >9 0177 

4RHOTAB(26>> 0178 

EQUIVALENCE (TEMINV1 (1 ) 9 TEM I NV ( 1 ) ) 9 (TEMINV2U ) 9TEMINV< 101 1) * 0179 

1 (TEMINV3U ) 9 TEM I NV ( 20 1 ) ) 9 (TEMINV4(1 ) 9 TEMINVOOI ) ) 0180 

REAL MACTABl ,MACTA82 0181 

EQUIVALENCE (EMS( 1 ) 9 EMSI (1 ) ) 9 ( EMS ( 5 ) *EMS2 ( 1 ) ) 9 (EMS ( 9 > 9EMS3 (1 ) ) 9 0182 

1 (EMS (13) tEMS4 ( 1 ) >9 (EMS ( 1 7 > 9 EMS5 (T ) ) 9 (EMS (21 ) 9 EMS 6 ( 1 ) ) 9 (EMS (25)9 0183 

2EMS7C 1 ) ) 9 (EMS(29> 9 EMS 8 C 1 > ) 9 (EMS ( 33 ) 9 EMS9 ( 1 ) ) 9 (EMS (37) 9 EMSIOCI > ) 0184 

NAMELIST /CASEIN P/ NO 9 NHOR 9 NVER 9 NOCONV » NRADO 9 NUO I NT 9 N A I RGA P * 0185 

1 I GEOM 9 I D I M 9 I CON VQ 9 I D I FF 9 L I NEAR 9 I NVERSE 9 COHEN 9 T I ME 9 T I MSTOP 9 DELT AT 9 0186 

2PRFREQ 9 TEMP 9 MAT *EMS1 9 EMS29 EMS3 9 EMS4 9 EMS5 1 EMS6 9 EMS7 9 EMS 89 0187 

3EMS9 9 EMSI 0 9 RHO 9 NKMPTS 9 TKTAB 1 9 KMI 9 TKT AB2 9 KM2 9 TKTAB3»KM3 9 TKTAB4 ,KM4 9 0188 

4 TKTAB 5 9 KM 5 9 TKT AB6 9 KM6 9 TKTAB7 »KM7 9 TKT AB 89 KM 8 9 TKTAB9 9 KM9 t TKT AB 10 9 0189 

5KM 1 0 9 NCPPTS 9 TCPTAB l 9 CP 1 * TCPTAB2 9 CP 2 9 TCPT AB3 9 CP3 9 TCPT AB4 9 CP 4 9 0190 


44 



6TCPTAB5*CP5»TCPTAB6»CP6»TCPTAB7*CP7*TCPTAB8,CP8«TCPTAB9*CP9* 0191 

7T CPTB 10*CP10* WD * RAD ♦ LEN * THETA * VOL , TWDEPTH * ACOND * NTOUCH * I CROBLK * 0192 

8CROAREA *PERCRNL , I QORH, H1PTS * TRANRN* FPCONE * RAONOSE * ACRADI *AJOlNT* 0193 

9HITIME,HTAB*TAWTAB*QTAB*N0INV* INVBLKS*NOINVT*TlNV*TEMINV* 0194 

XTEM1NV1 ♦ TEMI NV2 * TEM I NV3 * TEM I NV4 ♦ 0195 

1 NAVPTS % T I MEAV * ALTT AB % VELTAB *NRATPT * MFST AB « VERTAB , MACT AB * REYTAB * 0 1 96 

2TEMTAB * RHOTAB ♦ NRATAB * VERTAB 1 * VERT AB2 * MAcTAB 1 * MACTAB2 *RE YTA81 * 0197 

3REYTAB2 • TEMTAB 1 , TEMTA02 ♦RHOTAB 1 *RH0T AB2 0198 

* 0199 

5 READ (5*1 000 ) 0200 

1000 FORMAT (80H1 0201 

1 0202 

IF (EOF *5 ) 6*7 0203 

6 STOP 0204 

7 READ (5 * CASE1 NP ) 0205 

WRITE (6*1000) 0206 

G= 32*1741 0207 

1PFCT » 0 0208 

IF (1D1M.NE*0) GO TO 15 0209 

CALL THINWAL 0210 

GO TO 5 0211 

* 0212 

* 0213 

* 0214 

15 WRITE ( 6 * CASE I NP ) 0215 

WRITE (6 *1000) 0216 

* 0217 

IF (NAIRGAP#EQ.0*AND.NJOINT*EQ#0) 20*25 0218 

4 0219 

* MO AIRGAPS OR JOINTS (SET ROUTE) 0220 

* 0221 

20 I ROUTE = 1 0222 

GO TO 30 0223 

* 0224 

* EITHER AIRGAPS* JOINTS* OR BOTH (SET ROUTE) 0225 

* 0226 

25 IR0UTE*2 0227 

* 0228 

30 IF ( INVERSE*EO.O) GO TO 35 0229 

!NVRT=2 0230 

M DUMMY* NO 0231 

NDUMMY»NO 0232 

GO TO 40 0233 

* 0234 

35 I NVRT « 1 0235 

MDUMMY* NO 0236 

NDUMMY* NHOR+1 0237 

IF ( ID! M*EQ* 1 ) NDUMMY»2 0238 

* 0239 

* UPDATE TIME BY DELTA TIME TO BEGIN COMPUTATION 0240 

* 0241 

40 TIME = TIME + DFLTAT 0242 

GO TO (50*42) 1NVRT 0243 

* 0244 

42 INV8LK= INVBLKS(l) 0245 

IF ( NO I NV#EQ * 1 ) GO TO 45 0246 

J=1 0247 

TEMPINV-0.0 0248 

DO 44 I®1*N0INV 0249 

CALL FTLUP (TI MF * SAVE * 1 *NOI NVT * TI NV (! ) « TEMI NV ( J ) ) 0250 

J=rJ+lOO 0251 

44 TEMP INV* TEMPINV+SAVE 0252 

GO TO 50 0253 

45 CALL FTLUP <T I ME *TEMP INV * 1 * NO I NVT * T INV ( 1 ) * TEMI NV ( 1 ) ) 0254 

* 0255 
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50 DO 60 1*1*100 0256 

DO 55 J*1 *20 0257 

55 COEF < I * J ) =0 » 0 0258 

60 CONST Cl) *0 * 0 0259 

CALL COND (COEF *MDUMMY * NDUMMY ) 0260 

* 0261 

CALL RADOUT (COFF *MDUMMY* NDUMMY ) 0262 

* 0263 

GO TO (65*90) * TNVRT 0264 

* 0265 

65 CALL CONV (COEF * M DUMMY * NDUMMY ) 0266 

* 0267 

GO TO (80*70)* T ROUTE 0268 

* 0269 

70 IF (NAIRGAPoECUO) GO TO 75 0270 

CALL A1RGAP t C OFF * MDUMM Y ♦ NDUMMY ) 0271 

* 0272 

IF (NsJPO INT *EQ*0 > GO TO 80 0273 

75 CALL JOINT ( COEF * MOUMMV *NDUMMY ) 0274 

* 0275 

* SOLUTION OF THE COMPACT SYMMETRICAL MATRIX 0276 

* 0277 

80 CALL COMPMTX (COEF * MDUMM Y * NDUMMY > 0278 

GO TO 100 0279 

* 0280 

90 CALL INVSOL ( COEF *M0UMMY* INDEX) 0281 

* 0282 

100 IPFCT* IPFCT+1 0283 

IF (IPFCT*NE*PRFREO) GO TO 40 0284 

IPFCT^O 0285 

IF ( I NVERSE * NE * 0 ) GO TO ISO 0286 

* 0287 

WRITE (6*2000) TIME*DELTAT 0288 

2000 FORMAT ( 1 X///6X6HT I ME *F 10*4* 6X 1 3HDELT A TIME = F6#4//> 0289 

* 0290 

IF (IH0RQ.EQe2) GO TO 120 0291 

* 0292 

- DO 110 1= 1 *NOCONV 0293 

MO TOTAL! I >*QCONV( M*(TAW< I) -TEMPI I) > 0294 

J*NOCONV+l 0295 

WRITE (6*3000) 0296 

3000 FORMAT UH *6X9HBL0CK NOl 1X11 HTEMPERATURE8X1 2HCONVECT I ON Q1 IX 0297 

18HH * ARE A 1 OX 11 HT( RECOVERY)//) 0298 

* 0299 

DO 125 I*l*NOCONV 0300 

125 WRITE (6*4000) I * TEMP ( I ) » TOTAL ( I ) * QCONV ( I > » T AW ( I ) 0301 

4000 FORMAT ( 10X* I3*6X*4E20*8 ) 0302 

* 0303 

DO 126 I=J*NO 0304 

126 WRITE (6*5000) I#TEMP(I> 0305 

5000 FORMAT ( 1 OX * 1 3 * 6X * E20 « 8 ) 0306 

* 0307 

GO TO 150 0308 

* 0309 

120 WRITE (6*6000) 0310 

6000 FORMAT (IH *6X9hBL 0CK NOl! XU HTEMPERATURE8X 1 2HCONVECT I ON Q//) 0311 

DO 130 I «1 * NOCONV 0312 

130 WRITE (6*7000) I 4 TEMP ( I ) * QCONV ( I ) 0313 

7000 FORMAT ( 1 OX * 1 3 * 6X * 2E20 * 8 ) 0314 

J* NOCONV+1 0315 

DO 140 I»U*NO 0316 

140 WRITE (6*5000) I*TEMP(I> 0317 

* 0318 

150 IF (TIME*LT*TIMST0P> GO TO 40 0319 

* 0320 

GO TO 5 0321 

* 0322 

END 0323 
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VANDR 


Subroutine VANDR computes the heat -transfer coefficient using the Van Driest 
equations with options for either turbulent or laminar flow based on transition Reynolds 
number. The flow diagram for subroutine VANDR follows. 



The program listing for VANDR is 


SUBROUTINE VANDR 1 1 ♦HVAL ,TREC ) 0324 

* 0325 

* A SUBROUTINE TO CALCULATE HEATING RATES USING VAN DRIEST EQUATIONS 0326 

* THIS SUBROUTINE IS CALLED BY TWO SUBROUTINES - CONV AND THINWAL 0327 

* 0328 

COMMON T I ME *DELTAT ♦ T I MSTOP *PRFREQ * NO « ID I M » I CONVQ«G « 0329 

1 TEMP ( 1 00 > 9 CONST ( 1 00 ) 0330 

COMMON /ALLCONV/ CONVRO ( 30 * 5 ) •> I DI FF * NOCONV * QCONV ( 30 ) % 0331 

1 TAW (30) , IHORQ 0332 

COMMON /TVOASTG/ ALT < VF S ♦ PE S * TPS ♦ MF S * RNFS f RHOSF3 « VLO CL * MLOCL ♦ 0333 

t RNPFL « RNLOCL ♦ TLOCL ♦ RHOLOCL 0334 

COMMON /ARRAYS/ ARRAY 1 ( 1800 ) *ARRAY2 Cl 800 > « ARRAYS (I 800 > »ATAB C 40 ) * 0335 

1VTAB(45) 0336 

COMMON /VDONLY/ TRANRN* PPCONE 0337 

D I MENS I ON CFMTAB (18), CFTTAB ( 8 ) , CFTAB < 144 ) , TPRTAB (10) ♦ PR2TAB C 1 0 ) » 0338 

1PR3TABC10) 0339 

REAL MFS, MLOCL 0340 

DATA TPRTAB/400 * t 500 « * 600 » « 700 • * 800 * * 900 • * 1 1 00 • « I 250 « » 2200 ® * 3900 • 034 1 

1 / « PR3TAB/*900t *8936, ,8880, *8840, #83094 #8790, #8790 , • 8805 8932 , 0342 

2 • 90 1 8/ , PR2T AB/ « 8555 , * 8448 , e 3367 * « 83 1 0 « * 827 * * 825 , • 825 * * 827 * • 8437 1 0343 

3*8567/ 0344 
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DATA CFMT AB/#5 * 1 #0*2#0.3#0*4#0*5*0*6#0*7*0*8#0*9*0*10#0*12#0* 0345 

1 13*0*14*0* 15#0»l6®0*l8s0*20#/* CFTTAB/*2« *4 *#6*1#0*2#0*3#0*4#0*6®/ 0346 

DATA CFTAB/*005i *#004904* * 00429 *#003596 * * 002978 *# 002475 * # 002078 * 0347 

1 #001764 4 *00 1516 * *00 1317 * #00l 1 56* #00091 3# #0008208# #0007425# 0348 

2 « 0006755 # # 0006 1 77 * #0005236 * #0004507 • #004546 * • 00441 1 ♦ #00396* 0349 

3.003416* *002901 *#00246* #002097 *• 00 1 804 . #00 1 565 * #00 1 371 *#001211 * 0350 

4*0009676* #0008734**0007931 * #0007239* #000664 * #0005657 * • 0004891 * 0351 

5*00417* #00407* #003709* #003258* * 00281 2 *• 0024 1 7 * #002084 * . 001 809 * 0352 

6*001581 , #001394 * * 00 1 237 *. 000995 * *00090 1 6* *0008209 *• 00751 2* 0353 

7*0006905* #0005905* #0005121 * #003673 *• 003603 * #003345 *• 003005 * 0354 

8 # 002652 * * 002325 * * 0020 36 * • 00 1 788 *#001 582 * • 00 1 407 * • 00 1 258 *.001 025 * 0355 

9*0009322* #0008523* #0007828* #0007219* #0006208* #0005409* #002990* 0356 

X# 002948* .0028* #002593* #002357* *0021 26 *• 00 1 907 * #001 71 1 • #001539* 0357 

1.001 389 * * 00 1 259 *#001 047 * * 0009598 * # 0008838 * • 0008 1 68 ♦ • 0007576 * 0358 

2.0006578* .0005777**00261 * • 002578* #002475 * #002328* #002153 *# 001974 * 0359 

3.001798. #00 1635 *#00 1489 **00 1357* #001241 * #001 046* #0009652 *• 0006934 * 0360 

4.0008295* #00077^4 *#0006755* *0005967* #00235 * • 002328 * #002251 « 0361 

5.002137* #002 *#00 1854* #001708* #001568* #001441 * #001 323 * #00121 8* 0362 

6*001039* #000963* #000895* #0008341 * • 007793 * #0006853 ♦* 0006082 « 0363 

7# 002005 *#002 *#001 95* #001875**001779* .001675* #001566* #00146* 0364 

8*001357* #00 1262 *#00 1173 *#00 10 17 **00095 * *0008887 **0008331 *#0007825* 0365 

9.0006944* #000621/ 0366 

RNL0CL=RNPFL * CONVRO(I*3) 0367 

TRAT = TEMP ( I 1/TLOCL 0368 

IF CRNIL0CL#GE#TRANRN) GO TO 150 0369 

* 0370 

4 LAMINAR FLOW 0371 

* 0372 

CALL FTLUPCTEMP(1)*PRN0*1 • 1 0 * TPRTAB * PR2TAB) 0373 

SAVEsSQRT (RNLOCL > 0374 

* 0375 

ALPHA « #41 6594+MLOCL*< -#00246733+ MLOCL* (-8 • 1 7489E-4+ MLOCL* 0376 

1 2*734033E-5M 0377 

* 0378 

BETA « TRAT* (—• 0 134671 + MLOCL* ( 2 .635S07C-4 +MLO.CL* < 5# 81 8944E-5- 0379 

1 MLOCL* 2# 1 7325706 > ) ) 0380 

CH = FPCONE* (ALPHA+ BETA)/ SAVE 03S1 

* 0382 

GO TO 200 0383 

* 0384 

* TURBULENT FLOW 0385 

* 0386 

150 CALL FTLUP(TEMP(I)*PRN0*1*10*TPRTAB*PR3TAB) 0387 

* 0388 

CALL Dl SCOT (MLOCL* TRAT* CFMT AB*CFTAB*CFTTAB*1 1 * 144*8* CFR) 0389 

* 0390 

SAVE* — 1 826# 3756+9737 #6*TR AT 0391 

Aa (668# 12+ SORT (SAVE! )/4868#8 0392 

B* • 00 1 9- • 000 1 *TRAT 0393 

RNEXP=A+B*MLOCL 0394 

* 0395 

SAVE1*1#0 0396 

IF ( FPCONE #NE* 1*0) SAVE1**5 0397 

* 0398 

CFS* CFR/< <SAVEl*RNLOCL/t #E6 )**RNEXP> 0399 

CH « #6*CFS 0400 

* 0401 

* TURBURLENT OR LAMINAR FLOW 0402 

* 0403 

200 CP I DEAL* #24 0404 

TSTAG*TFS*(1 #0+#2*MFS**2) 0405 

HVAL* CH* RH0L0CL*CPIDEAL*VL0CL*G 0406 

TRECa PRNO*(TSTAG —TLOCL > + TLOCL 0407 

I HORQ= 1 0408 

* 0409 

300 RETURN 0410 

END 04 1 1 


48 



STAG 


Subroutine STAG computes the stagnation heat -transfer coefficient by either the 
Sibulkin equations, the Detra-Kemp-Riddell equations, or the Cohen equations according 
to the value of the free -stream velocity. For locations not at the stagnation point, a ratio 
value designated in the input is used for the percentage of the stagnation value. 



The program listing for subroutine STAG is 
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SUBROUT I ME ST AG f l * HV AC * TREC * HSUBOI F > 0412 

* 04 13 

* A SUBROUTINE TO CALCULATE HEATING RATES AT STAGNATION -IT USES 0414 

* SI BULK IN DETRA-K£MP-RIDDELL*AND COHEN EQUATIONS 0415 

* THIS SUBROUTINE IS CALLED BY TWO SUBROUTINES - CONV AND THINWAL 0416 

* 0417 

COMMON TIM£*DELTAT*TIMSTOP*PRFREQ«NO« I DIM* ICONVQ.G* 0418 

1 TEMP ( 1 00 ) « CONST ( 1 00 ) 0419 

COMMON /ALLCONV/ CONVRO ( 30 * 5 ) * ! D I FF * NOCONV * GCONV ( 30 ) * 0420 

1 TAW (30) * IHORQ 0421 

COMMON /STGONLY/ COH£N * RADNOSE 0422 

COMMON /TVDASTG/ ALT » VFS*PFS * TFS *MFS *RNFS * RHOSF3 * VLOCL * MLOCL « 0423 

1 RNPFL « RNLOCL * TLOCL * RHOLOCL 04 24 

COMMON /ARRAYS/ ARRAY 1 (1 800 ) * ARRAY2 C 1800) * ARRAY3 ( 1 800 ) * A TAB ( 40 ) * 0425 

1VTAB<45> 0426 

INTEGER COHEN 0427 

REAL MFS* MLOCL 0428 

D I MENS I ON TMPTAR ( 32 > ♦ PRESTB ( 7 > • ZHRTT AB ( 224 ) * ZPRTEM (12) * ZTAB ( 84 ) « 0429 

1PRNOTB ( 84 ) * UEUPT AB ( 224 ) 0430 

DATA TMPTAB/0.0 *800. • 900 • * 1 800 • *2700® *3600* * 4500® *5400. #6300# * 0431 

1 7200 **8 100* .9000* *9900* * 10800. * 1 1 700 . * 1 2600 ., 13500. * 1 4400. * 1 5300 • * 0432 

216200. * 17100. * 18000. . 18900* * 1 9800. * 20700. *21600. *22500**23400. * 0433 

324300. *25200. *26100. *27000./* PRESTB/- . 6743202 * .3256798*1 .3256798* 0434 

42 . 3256798 * 3 . 3256798 * 4 . 3256798 * 5 . 3256798 / 0435 

DATA ZHRTT AB/0.0.3.5* 3.52*3.65*3.80* 0436 

14.41 *8 .02 *8. 19* 8. 03* 9.82 *16.8*23.46 *23.58 *22.54 *21 .93*22.29*24.26* 0437 

228.65* 35. 75 *43. 74 *49. 15 *50.96*50. 64, 49.48 *48.07 *46.64 *45 .26*43. 97* 0438 

342.76*41 .64*40.58*39.60*0.0*3.5*3.52*3.65*3,8*4.07*6.16*8.02*7.77* 0439 

48*09* 1 0.55* 16.68*21 .58,21 .97*21 .24*20.69*20.72*21 *65*23.85*27.66 * 0440 

533.0*38.79*43.28*45.57*46.09,45,64*44.74*43.69*42.61 *41,55*40*53* 0441 

639.57,0,0*3,5,3.52,3,65*3,8,3.97*4.81 *7.13,7.62*7.53*8.14*10,48* 0442 

715,14*19.3*20.35*20,01 * 19, 54 * 1 9 . 34 * 1 9.6 * 20 • 49 * 22 . 1 7 * 24 .78*28 ,28 * 0443 

832.31,36.13*39.01 *40.66 *41 .26* 41 . 17*40.69*40. 01 * 39.24 * 0,0* 3. 5* 0444 

93. 52 ,3. 65 *3. 8, 3, 93 *4. 27, 5, 55, 7. 08, 7, 28 *7, 33,7, 96 *9, 73* 12,93*16.46* 0445 

XI 8,34* 18.66, 18.43, 18.17,18.09,18.29* 18.85*19.84,21 .31 *23.28*25.69, 0446 

I 28.36* 30.99, 33.27*34,97 *36. 02 *36.53 *0.0 *3 .5 *3. 52 *3. 65 *3 .8*3. 92* 0447 

24,09*4.61 *5.75,6.74*6.98*7.1 ,7.58*8.7*10.64*13.2*15.48* 16.73*17.09 0448 

3*17.04*16.91 *16.84, 16.9*17. 13* 17.57* 18.24*19.16*20.32*21 .72*23.29* 0449 

424.98*26.66*0. *3.5* 3. 52 *3. 65,3.8, 3. 92, 4.03 *4 .25,4. 75* 5. 56* 6. 29* 0450 

56.62*6,8*7.1 1 ,7.72*8.76*10.24, 1 1 ,99, 13.63*14.79, 15.4* 15.61 *15.64* 0451 

6! 5*6 *15.58* 15,62* 15.74, 15.96*16.28* 16.71 * 17.26* 17,92*0.0*3.5*3.52* 0452 

73.65*3.8*3.92,4.01 * 4 • 1 3 *4 • 34 *4 . 7* 5.2 *5 .73 * 6 • 1 3 * 6.38 * 6 .62 *6. 95* 0453 

87.44*8.16*9,1 ,10,2*11 *36 *12 .42* 13. 23* 13 .77 *14 .08* 14. 22 *14. 28 *14.3* 0454 

914,31 * 14.34* 14.4* 14.49/ 0455 

DATA ZTAB/ 5*1 .0* 1 .016* 1 • 163* 1 .2* 1 .21 1 * 1 .287*1 .577* 1.910* 0456 

15 * 1 .0* 1 .005, 1 .088* 1 , 192* 1 .203* 1 .228* 1 .337,1 .622* 0457 

25 * 1 .0* 1 .002* 1 ,033*1 .149* 1 .197*1 .208*1 .245*1 .359* 0458 

35 * 1.0*1.001*1,011*1.072*1,167*1.198*1.213*1.252* 0459 

46 * 1.0*1 *004* 1 .026* 1 .092* 1 • 165*1 .196*1 .214* 0460 
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56 * 1 ©6* 1 #001 * 1 *009* 1 *035<» 1 .069, 1 • 149* 1 . 186* 0461 

67 * 1 *0* 1 ©003^ 1 *012* 1 *033* 1 ©071 * 1 ® 1 18/* 0462 

7ZPRTEM/ 0*0* 800* * 900® * 1 800 * * 2700 ® , 3600 © * 4 500 © * 5400 . , 6300 7200 © * 04 63 

881 00**9000®/® PRNOTB /. 75 t • 75 * * 738 * *756* *767* ©614 * « 771 , .714 * 0464 

9 ©606 * « 587 « *764 * *993 * « 75 , ,75 * . 738 , *756**767, ©668, ©654 , ©745, #658, 04 65 

X»58, *61 1 , *799, © 75 $ #75**738* * 756 « *767 , * 724 * ©61 1 , ©74, ©737, *619, *578, 0466 

1 * 624 * © 75 * © 75 , © 738 * © 756 , © 767 , * 766 , © 64 5 , # 636 , . 744 , © 759 , © 61 0, ©581 , 0467 

2 . 75 « # 75 , © 738 , * 756 * # 767 , « 773 , # 696 , * 627 , © 660 , # 762 , * 752 ,© 611 , 0468 

3 * 75 , © 75 , © 739 , © 756 , © 767 , © 773**751 * * 680**631 * * 662 , # 743 , * 767 * 0469 

4 ® 75 , # 75 * © 738 * ® 7 « 6 , © 767 , © 773 , © 762 , * 74 0 * © 678 , © 640 , # 654 , * 702 / 0470 

DATA UEURTAB/8*1 ©0,1*011,1 *032, 1 #096,1 *181,1 .227,1 .256,1*271 , 0471 

1 1.264,1 .21,1 .072, .826, ©517, ©261 * © 1 1 8 , • 055 , • 029 , . 0 1 8 * * 0 1 2 , © 009 * 0472 

2.008, *007, .007, #008, .008, 0473 

38*1.0, 1.01,1 .024,1 .055,1 .128,1 *209,1 .257, 1 *286,1 #303,1 .307,1 .280* 0474 

41.207, 1 .068, #853, .595, .361 * .2, . 1 08**063, .036, « 024, .01 8*. 015, *01 3, 0475 

5.012, 8* 1.0, 1.01,1 .022,1.038, 1 .074, 1.146,1 .228,1 *276,1 .317,1 #337, 0476 

61 .347, 1 .343*1 *31 4, 1 .251 ,1 » 143, #983, *782, .571 , .387, *249, . 1 58 , • 1 0 , 0477 

7.067**042**016, 8* 1 . 0 , 1 . 006 , 1 • 02 , 1 * 033 , 1 . 05 1 * 1 • 086 , 1 * 1 48 , 1 .229 , 0478 

81 .294* 1 .332,1.371 * 1 .386 ,1 .396,1 .393, 1 .375,1 .335,1 .267, 1.168*1.04, 0479 

9.881 * .711 , .547, ,408, ,268, .212, 8* 1.0,1 .003*1 • 0 1 6 * 1 • 029 , 1 • 043 * 0430 

XI .06, 1 .09, 1 ,!39, 1 .208, 1 .283,1 ,342, 1 *386,1 .425,1 .438, 1 *445, 1 *448, 0481 

1 1 .442,1 .424,1 ,394* 1.342*1.274*1 .187,1 .082* .94, .828* 0482 

28* 1.0*1.001*1 .008,1 ,022,1 .036,1 ,052, 1 .067*1 • 09 * 1 • 1 24 • 1 • 1 75 , 1 .238* 0483 

31 .307* 1 .368*1 .418*1 .468*1 .496,1 .501*1,511,1.52*1.516,1 .508 ,1 .492, 0484 

41,468,1.415,1.387* 9 * 1.0*1 .003* 1.01,1 .022,1 .036* 1*05,1 .072, 0485 

51 *089* 1.112*1,143*1 • 185*1 .238, 1 .298, 1,361,1.418*1 .467*1 ,509,1.549* 0486 

61 .577* 1 .581 « 1 .594* 1 .599,1 .601,1 .604/ 0487 

IF ( COHEN . EG . 1 ) GO TO 50 0488 

IF (VFS.GE.5000, ) GO TO 50 0489 

* 0490 

* SI BULK IN OPTION 0491 

* 0492 

B “ .80 +,541*MFS -.00574# MFS**2 0493 

* 0494 

HVAL*B*G*RH0SF3*VFS*«24*C0NVR0( I * 3 ) / ( SORT ( RNFS*RADNOSE > ) 0495 

TREC= TFS* ( 1 .0+.2*MFS**2) 0496 

IHORQ=l 0497 

RETURN 0498 

* 0499 

50 IF CVFS.GT.5000. > GO TO 60 0500 

SAVE 1 * (1 .2*N!FS**2)**3.5 0501 

SAVE2= <6./<7.0*MFS**2-l .0 > )**2.5 0502 

P0PP1= SAVE 1 *SAVE2 0503 

GO TO 70 0504 

60 CALL DISC0T(VFS,ALT«VTAB*ARRAY1 ,ATAB* 1 1 , 1800*40, POPP1 ) 0505 

70 PESTAG=P0PP1*PFS 0506 

PELOG * ALOGIO(PESTAG) 0507 

CALL D 1 SCOT ( TEMP ( I ) , PELOG , TMPTA8 ©ZHRTTAB , PRESTB, 1 1 ,224*7*ZHRT> 0508 

HSUBW= © 0686*ZHRT*TEMP < I ) 0509 

HSUBRs(VFS**2)/ (50000. ) +.24*TFS 0510 

IF (COHEN. EQ.l) GO TO 100 0511 

IF (VFS. GT, 20000® ) GO TO 100 0512 

* 0513 
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* DETRA-KEMP-RIDDELL OPTION 0514 

* 0515 

HVAL= ( .447E-8 *SQRT (RHOSF3 ) * VFS**3. 1 5 ) / (SORT (RADNOSE >* ( HSUBR- 0516 

M 30 » ) )*CONVRO< I 9 3 ) 0517 

GO TO 200 0518 

* 0519 

* COHEN OPTION 0520 

* 0521 

100 IE (VFS.GT *5000* ) GO TO 110 0522 

TOPT1 * 1 .0+.2*mFS**2 0523 

TESTAG * T0PT1*TES 0524 

ROPR 1 aPOPP 1 /TOPT 1 0525 

RHOSTAG*ROPR1*RHOSE3 0526 

GO TO 120 0527 

110 CALL DI SCOT CVFS « ALT t VT AB « ARRAY2 * ATAB ♦ 1 1 ♦ 1800 « 40* ROPR 1 ) 0528 

RHOSTAG= ROPR 1 *RH 05F 3 0529 

CALL DI SCOT ( VFS ♦ ALT 9 VT AB ♦ ARRAY3 ♦ AT AB * 1 l « 1 800 ♦ 40 * TOPT 1 ) 0530 

TESTAG* TOPTl-x-TFS 0531 

120 CALL DI SCOT ( TEMP (II .PELOG . TMPT AB.UEURTAB . PRESTB <11 * 224 *7 .UWUREF ) 0532 

CALL DI SCOT ( TESTAG . PELOG ♦ TMPT AB .UEURTAB , PRESTB .11. 224.7. UEUREF ) 0533 

* 0534 

UREFS=C2.28E-8*TESTAG**1.5)/(TESTAG + 201.6) 0535 

UREFW*(2.28E-8*TEMP< I )**1 .5)/ (TEMPI I >+20i . 6 ) 0536 

* 0537 

UESTAG* UREFS* UEUREF 0538 

UWSTAG* UREFW* UWUREF 0539 

* 0540 

CALL D I SCOT ( TEMP ( I ) . PELOG « 2PRTEM . ZT AB * PRESTB *11. 84 »7 « ZW ) 0541 

CALL D I SCOT ( TEMP ( I ) . PELOG . ZPRTEM.PRNOTB .PRESTB. 11. 84 *7 < PRWSTG ) 0542 

* 0543 

ROWSTAG = 5.825E-4* PESTAG/<ZW * TEMP ( I ) ) 0544 

* 0545 

TSUBE=r8465./(VFS**2/'50000. ) 0546 

* 0547 

IF (TSUBE.LT. .5) GO TO 150 0548 

G1 TE~1 .0 0549 

GO TO 160 0550 

150 G1TE* 1.0+ .075*< 1 .0/ (TSUBE > -2 • 0 >**2 0551 

160 SAVE1 = PRWSTG**(-. 6 > 0552 

SAVE2= (RHOSTAG*uESTAG)**.43 0553 

SAVE3= (ROWSTAG*UWSTAG>**.07 0554 

SAVE4= ( 2.0* (PESTAG-PFS ) /RHOSTAG )+**25 0555 

* 0556 

HVAL=.767*G*SAVEl*SAVE2*SAVE3*SAVE4*GlTE*CONVRO( I . 3 ) /SORT ( RADNOSE > 0557 

* 0558 

200 HSUBDIF * HSUBR-HSUBW 0559 

1H0RQ=2 0560 

* 0561 

RETURN 0562 

END 0563 
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TRAJ 


The subroutine TRAJ computes the free-stream and local conditions from a given 
trajectory of altitude and velocity as functions of time. The flow diagram for the sub- 
routine TRAJ follows. 



The program listing for subroutine TRAJ is 
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SUBROUTINE TRAJ 0664 

* 0565 

* A SUBROUTINE TO CALCULATE FREE— STREAM AND LOCAL CONDITIONS FROM A 0566 

* GIVEN TRAJ FOR USE IN VANDR AND STAG 0567 

* THIS SUBROUTINE IS CALLED BY TWO SUBROUTINES - CONV AND THINWAL 0568 

* 0569 

COMMON TIME*DELTAT*TIMST0P,PRFREQ*N0, I D I M * I C ON VQ * G * 0570 

1 TEMP (100) $ CONST (100) 0571 

DIMENSION ANS ( 4 ) 0572 

* 0573 

COMMON /TRAJO/ NAVPTS * T IMEAV Cl 00 ) * ALTTAB ( 1 00 ) t VELTAB ( 1 00 ) • NRATPT « 0574 

1 MFSTAB (25)9 VERT AB ( 50 ) * M ACT AB (50)« REYTAB ( 50 ) * TEMTAB ( 50 ) * RHOTAB ( 50 > 0575 

COMMON /TVDASTG/ALT * VFS * PFS * TFS * MFS * RNFS 4 RHOSF3 « VLOCL t MLOCL * RNPFL 9 0576 

1 RNLOCL « TLOCL eRHOLOCL 0577 

COMMON /CVTRAJ/NRATIO 0578 

* 0579 

REAL MFSTAB « MACTAB * MFS « MLOCL 9 MUFS 0580 

* 0581 

CALL FTLUP (T I ME ♦ ALT t 1 ♦ NAVPTS* T I MEAV • ALTTAB ) 0582 

CALL FTLUP (TIME* VFS « 1 * NAVPTS * T I MEAV * VELTAB ) 0583 

CALL AT62 (ALT* ANS) 0584 

TFS=l#8 * ANS ( 3 ) 0585 

RH0SF3=ANS ( 1 ) 0586 

PFS ®ANS(2) 0587 

MFS * VFS /ANS (4) 0588 

MUFS® 2®27E-8 * TFS** ( 3 • /2 • > / < TFS + 1 98*6) 0589 

RNFS® RH0SF3 *ANS(4)* MFS/MUFS 0590 

* 0591 

IF ( !C0NVGoNE.3) GO TO 10 0592 

J® ! 0593 

* 0594 

* LOCAL VALUES FOUND BY USING LOCAL TO FREE-STREAM RATIOS 0595 

* 0596 

L*1 0597 

IF (NRATPT ®EQ»0 ) J=0 0598 

IF ( ID ! M©EG« 0 ) GO TO 5 0599 

IF (NRATI0*EQ«2 ) L=26 0600 

5 CALL FTLUP ( MFS *TABVAL * J .NRATPT * MFSTAB * VERT AB ( L ) ) 0601 

VLOCL ® VFS * TABVAL 0602 

CALL FTLUP ( MFS *TABVAL * J *NRATPT * MFSTAB * MACTAB (L) ) 0603 

MLOCL = MFS * TABVAL 0604 

CALL FTLUP ( MFS * TABVAL * J* NRATPT *MFST AB *RE YT AB (L) ) 0605 

RNPFL « RNFS * TABVAL 0606 

CALL FTLUP < MFS * TABVAL * J*NRATPT * MFSTAB * TEMTAB (L ) ) 0607 

TLOCL * TFS * TABVAL 0608 

CALL FTLUP ( MFS * T ABVAL « J * NRATPT *MFST AB *RHOT AB (L ) ) 0609 

RHOLOCL * RHOSFS *TABVAL 0610 

* 0611 

10 CONTINUE 0612 

RETURN 06 1 3 

END 0614 


54 



COND 


Subroutine COND computes the conduction coefficient and stores it in the coefficient 
matrix for solution. The flow diagram for subroutine COND follows. 



The program listing for subroutine COND is 
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SUBROUTINE COND ( COEF « MDUMMY* NDUMM Y ) 0615 

* 0616 

* A SUBROUTINE TO CALCULATE THE CONDUCTION TERMS 0617 

* THIS SUBROUTINE IS CALLED BY THE MAIN PROGRAM 0618 

* 0619 

* 0620 

DIMENSION COEF (MDUMMY * NDUMM Y ) 0621 

COMMON T I ME * DELT AT * T I MSTOP oPRFREQ « NO * I D I M ♦ I CONVQ * G * 0622 

1 TEMP (100) * CONST (100) 0623 

COMMON /CDGEOM/ NTOUCH (5*1 00 > * ACOND ( 300 ) 0624 

COMMON /ALLCONV/ CONVRO (30 * 5 ) * ID IFF « NOCONV *QCONV (30 ) t 0625 

1 TAW ( 30 ) « IHORQ 0626 

COMMON /MATPROP/ MAT ( 1 00 ) * EMS ( 40 ) * RHO (10), NCPPTS (10)* TCPT AB (100)* 0627 

1CPTABC 100 ) * NKMPTS (10) * TTKT AB ( 1 00 ) *KMTA9 ( 1 00 ) 0628 

COMMON /BLKDIM/ WD ( 1 00 ) * VOL U 00 ) * LEN ( 1 00 ) * NHOR *NVER 0629 

COMMON /INVRS/ INVERSE# I NVBLK * TEMP INV * NO I NV * INVBLKS(4 > *NOINVT f 0630 

1 T I NV (200 ) #TEMINV<400) 0631 

REAL LEN 0632 

REAL KMTAB 0633 

* 0634 

1 IF ( I NVERSE #EQ » 1 ) !NVRT=1 0635 

NCOCT =* 1 0636 

DO 60 NBLOCK* l*NO 0637 

I ORDER *1 0638 

I MAT *MAT( NBLOCK) 0639 

I * I MAT *10-9 0640 

NPRS=NCPPTS( I MAT) 0641 

IF (NPRS *EQ. 0 ) I ORDER = 0 0642 

CALL FTLUP (TEMP (NBLOCK ) * VALCP * I ORDER *NPRS * TCP TAB ( I ) « CPTAB ( I ) ) 0643 

WVCP a RHOUMAT) * VOL (NBLOCK) * VALC P/ DELTAT 0644 

* 0645 

NUMCD=NTOUCH(l * NBLOCK) 0646 

IF ( INVERSE*EQ. I ) GO TO 2 0647 

COEF(NBLOCK,l )=COEF(NBLOCK#l > -WVCP 0648 

CONST (NBLOCK )*CONST (NBLOCK) - WVCP*TEmP ( NBLOCK ) 0649 

IF (NUMCD.NE.O ) GO TO 3 0650 

GO TO 60 0651 

2 IF (NUMCD.NE.O) GO TO 3 0652 

IF ( INVBLK.EQ.NO ) GO TO 4 0653 

COEF (NBLOCK * NBLOCK ) =COEF ( NBLOCK * NBLOCK ) -WVCP 0654 

CONST (NBLOCK )*CONST (NBLOCK ) -WVCP*TEMP (NBLOCK > 0655 

GO TO 60 0656 

4 CONST ( NBLOCK ) *CONST ( NBLOCK ) +WVCP* ( TEMP I NV-TEMP (NBLOCK ) ) 0657 

GO TO 60 0658 

* 0659 

3 I ORDERS t 0660 

* 0661 

NPRS = NKMPTS ( I MAT ) 066 2 

IF (NPRS.EG.O) I ORDERED 0663 

CALL FTLUP ( TEMP (NBLOCK )* VALK 1 « I ORDER * NPRS.TTKTAB ( I) *KMTAB ( I) ) 0664 

4 0665 

DO 50 J*1*NUMCD 0666 

* 0667 

* TEST TOUCHING BLOCK NOS AND FIND DISTANCES ACCORDING TO PROPER SIGN 0668 

* 0669 

ITBLK=NTOUCH(J+l * NBLOCK) 0670 

IF (ITBLK) 5 * 51*10 0671 

* 0672 
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* SIGN WAS NEGATIVE USE WIDTHS OF BLOCKS 0673 

* 0674 

5 ITBLK* IABSIIT8LK) 0675 

D 1 =WD ( NBLOCK > 0676 

D2«WD(!TBLK> 0677 

GO TO 15 0678 

* 0679 

* SIGN WAS POSITIVE USE LENGTHS OF BLOCKS 0680 

* 0681 

10 D 1 «LEN ( N8LOCK ) 0682 

D2*LEN C ITBLK > 0683 

* 0684 

* FIND NO OF MATERIAL AND KM VALUE FOR TOUCHING BLOCK 0685 

* 0686 

15 I ORDER* 1 0687 

IMAT *MAT( ITBLK) 0688 

I a I MAT *10-9 0689 

NPRS=NKMPTS( IMAT) 0690 

IF (NPRS®EQ*0) I ORDERa 0 0691 

CALL FTLUP (TEMPI ITBLK ) * VALK2 « I ORDER *NPRS » TTKTA8 ( I ) »KMT AB ( I ) ) 0692 

* 0693 

* PICK UP NEXT CONDUCTION AREA IN ARRAY AND COMPUTE COEF* OF TEMPERATURE 0694 

* DIFFERENCE 0695 

* 0696 

SAVE «2*0*ACOND(NCDCT)/(<D1/VALK1 )+D2/VALK2> 0697 

NCOCT a NCOCT+1 0698 

* 0699 

IF ( INVERSE*EGU1 ) GO TO 90 0700 

* 0701 

COEF C NBLOCK * 1 ) =COEF ( NBLOCK ♦ 1 ) -SAVE 0702 

I SAVE* I TBLK-NBLOCK+ 1 0703 

COEF ( NBLOCK 4 ISAVE)=SAVE 0704 

COEF ( ITBLK* 1 ) = COEF ( ITBLK* 1 ) -SAVE 0705 

* 0706 

GO TO 50 0707 

* 0708 

* STORAGE OF CONDUCTION TERMS FOR INVERSE SOLUTION 0709 

90 HOLD* TEMPINV*SAVE 0710 

* 071 1 

GO TO ( 1 00 M 200 * 300 * 4 00 * 500 ) INVRT 0712 

* 0713 

100 COEF C I NVBLK * 2 ) = SAVE 0714 

COEF ( I NVBLK * I NVSLK ) * CONVRO ( I * 2 ) 0715 

IF ( I NVBLK • NE * 1 ) GO TO ISO 0716 

* 0717 

* BLOCK NO 1 IS INVERSE BLOCK 0718 

* 0719 

CONST < 1 1 « CONST II) + HOLD +WVCP* (TEMPI NV-TEMP ( 1 )) 0720 

CONST ( 2 ) a— HOLD 072 1 

I NVRT “5 0722 

IF (NOINV.ECUl) GO TO 550 0723 

DO 105 L*2*N0INV 0724 

I NO* I NVBLKS (L ) 0725 

COEF ( 1 # INO) -COEFI 1 * INO I+SAVE+WVCP 0726 

105 COEF (2t INOaCOEF (2# I NO) -SAVE 0727 

GO TO 550 0728 

* 0729 

I SO COEF ( I NVBLK * 1 ) kCOEF ( I NVBLK ♦ 1 ) —SAVE -WVCP 0730 

COEF Cl*t)=SAVE 0731 

* 0732 

IF ( I NVBLK* EG » 2 ) GO TO 160 0733 

COEF (1*2)* COEF (1*2) —SAVE 0734 

CONST ( I NVBLK ) *CONST ( I NVBLK ) -WVCP*TEMP ( NBLOCK ) 0735 

I NVRT *3 0736 

GO TO 50 0737 

* 0738 
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* BLOCK NO 2 IS INVERSE BLOCK 0739 

* 0740 

160 CONST! 2) = CONST! 2) -HOLD-WVCP* TEMP(NBLOCK) 0741 

CONST! 1) * HOLD 0742 

I NVRT 5=2 0743 

IF !NO! NV*EG« 1 ) GO TO SO 0744 

DO 165 L*2 9 NO I NV 0745 

I NO* I NVBLKS ! L ) 0746 

COEF (1*1 NO ) -COFF ! 1 t !NO)+SAVE 0747 

165 COEF ( 2 9 ! NO ) =COEF (2*1 NO )— SAVE 0748 

GO TO 50 0749 

* 0750 

200 COEFIl »3)*C0EF( 1 *3)+SAvE 0751 

CONST (1 ) *CONST ( 1 ) + HOLD +WVCP* ! TEMP I NV— TEMP < 2 ) ) 0752 

CONST ( 3 ) *-H0LD 0753 

I NVRT =5 0754 

IF (NOINV«EQ*l ) GO TO 550 0755 

DO 205 L=2f NOINV 0756 

I NO* | NVBLKS t L ) 0757 

COEF ! 1 « I NO ) -COEF (1*1 NO J+SAVE+WVCP 0758 

205 COEF (3*1 NO ) *COFF ! 3 9 I NO ) --SAVE 0759 

GO TO 550 0760 

300 IF (ITBLK»ECUINvBLK) GO TO 350 0761 

* 0762 

COEF (NBLOCK- 1 * I tBLK ) =COEF ! NBLOCK- 1 * I TBLK > +SAVE 0763 

COEF (NBLOCK* ITBLK)- COEF (NBLOCK* I TBLK) -SAVE 0764 

CONST CNBLOCK-1 ) sCONST ( NBLOCK— 1 ) -WVCP*TEMP (NBLOCK ) 0765 

GO TO 360 0766 

* 0767 

350 I NVRT *4 0768 

CONST! NBLOCK- 1 ) aCONST ! NBLOCK— 1 ) -HOLD— WVCP*TEMP (NBLOCK ) 0769 

CONST (NBLOCK ) =CONST (NBLOCK ) +HOLD 0770 

IF (NOINV*BQ#l > GO TO 360 0771 

DO 355 L*2*NOlNV 0772 

I NO* I NVBLKS ( L ) 0773 

COEF (NBLOCK— 1 * I NO) *COEF (NBLOCK-1 * I NO) -SAVE 0774 

355 COEF (NBLOCK* I NO) * COEF (NBLOCK « I NO ) +SAVE 0775 

360 COEF ( NBLOCK- 1 * NBLOCK)* COEF (NBLOCK — 1 * NBLOCK ) —SAVE— WVCP 0776 

COEF (NBLOCK * NBLOCK ) =COEF (NBLOCK * NBLOCK ) +S AVE 0777 

GO TO 50 0778 

* 0779 

400 COEF (NBLOCK- 1 * I tBLK ) =C0EF (NBLOCK- 1 * I TBLK >+SAVE 0780 

CONST (NBLOCK-1 >= CONST < NBLOCK- 1 ) +HOLD+ WVCP* (TEMP I NV-TEMP (NBLOCK ) ) 0781 

CONST (I TBLK) *-HOLD 0782 

I NVRT*5 0783 

IF (NOINVsEQ » 1 ) GO TO 550 0784 

DO 450 L*2 * NO I NV 0785 

I NO* I NVBLKS (L ) 0786 

COEF (NBLOCK— 1 * I NO ) =COEF (NBLOCK-1 , I NO ) +S AVE+WVCP 0787 

450 COEF ( T TBLK * I NO ) * COEF ( I TBLK * I NO ) -SAVE 0788 

GO TO 550 0789 

* 0790 

500 COEF (NBLOCK* I TBLK ) *COEF (NBLOCK * I TBLK )+SAVE 0791 

COEF ( NBLOCK * NBLOCK ) =COEF ( NBLOCK * NBLOCK ) -S AVE- WVCP 0792 

COEF ( I TBLK * NBLOCK ) = COEF ( I TBLK * NBLOCK ) +S A VE 0793 

CONST ( NBLOCK ) =CONST ( NBLOCK > -WVCP*TEMP ( NBLOCK ) 0794 

550 COEF ( I TBLK* I TBLK) * COEF < I TBLK * I TBLK ) -SAVE 0795 

* 0796 

50 CONTINUE 0797 

60 CONTINUE 0798 

* 0799 

RETURN 0800 

51 WRITE (6*52) NBLOCK 0801 

52 FORMAT (4X35HERROR - TOUCHING BLOCK*© BLOCK NO*I4) 0802 

STOP 0803 

END 0804 
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RADOUT 


Subroutine RADOUT computes the radiation-out term of the heat-balance equation 
and stores it in the constant vector for solution or it computes a linearized form and 
stores values in the coefficient matrix and in the constant vector for solution. The flow 
diagram for subroutine RADOUT follows. 



The program listing for subroutine RADOUT is 
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SUBROUTINE RAOOuT ( COEF t MDUMMY 4 NDUMM Y ) 0805 

* 0806 

* A SUBROUTINE TO CALCULATE THE RADIATION-OUT TERM EITHER LINEARIZED 0807 

* OR NOT 0808 

* THIS SUBROUTINE IS CALLED BY THE MAIN PROGRAM 0809 

* 0810 

DIMENSION COEF (MDUMMY *NDUMMY) 0811 

COMMON T I ME *DELT AT < 1 T I MSTOP » PRFREO * NO 4 ID I M ♦ I CONVQ 1 G 1 0812 

1 TEMP (100) « CONST ( 1 00 ) 0813 

COMMON /ALLCONV/ CONVRO ( 30 » 5 ) <» I D I FF * NOCONV * QCONV ( 30 ) « 0814 

1 T AW ( 30 ) » IHORQ 0815 

COMMON /MATPROP/ MAT ( 1 00 ) * EMS (40 ) # RHO (10) *NCPPTS( 10 ) *TCPTABU00 ) • 0816 

1 CPTAB ( 1 00 ) * NKMPTS (10)* TT<T AB ( 1 00 ) < KMTAB (100) 0817 

COMMON /INVRS/ INVERSE 9 I NVBLK * TEMP I NV * NO I NV * I NVBLKS ( 4 ) ,NOINVT* 0818 

1TINV(200 ) « TEM I NV (400 ) 0819 

COMMON /RADONL Y/NRADO *L I NEAR 0820 

REAL KMTAB 0821 

* 0822 

IF (NRADOoEQ* 0 ) RETURN 0823 

DO 20 1=1 tNRADO 0824 

IBLK= CONVRO (1*1) 0825 

T CUBED® TEMP(IBLK)**3 0826 

M= MAT ( IBLK ) 0827 

J= M*4— 3 0828 

* 0829 

EMSS*EMS(J>+TEMP( I BLK ) * (EMS ( J + 1 )+TEMP( IBLK ) * (EMS ( J+2 ) + 0830 

1 TEMP (IBLK )*EMS(J+3) ) 5 0831 

* 0832 

HOLD = *4835E-12*EMSS* CONVRO ( IBLK < 2 >* TCUBED 0833 

HOLD1 = HOLO»TEMP( IBLK) 0834 

IF (L INEAR*EQ* 0 ) GO TO 5 0835 

* 0836 

* STORAGE FOR LINEAR EG* <T**4> 0837 

* 0838 

IF { INVERSE*EQ*0) GO TO 4 0839 

COEF ( I NVBLK * 1 ) = COEF ( I NVBLK * 1 ) -HOLD*2*0 0840 

CONST ( I NVBLK )= CONST ( I NVBLK ) -HOLD 1 0841 

GO TO 20 0842 

4 COEF ( IBLK • 1 ) = C0EF(IBLK*1) -HOLD*2.0 0843 

CONST ( IBLK ) = CONST ( IBLK)— H0LD1 0844 

GO TO 20 0845 

* 0846 

* 0847 

5 IF (INVERSE*EQ*0> GO TO 10 0848 

IF (IBLK*NE*1) GO TO 10 0849 

* 0850 

6 C0NST<INVBLK)=C0NST(INVBLK)+H0LD1 0851 

GO TO 20 0852 

* 0853 

10 CONST( IBLK) =CONST< IBLK) +HOLD1 0854 

4 0855 

20 CONTINUE 0856 

RETURN 0857 

END 0858 
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AIRGAP 


Subroutine AIRGAP computes the air -conduction coefficient and stores it in the 
coefficient matrix and also computes the radiation term across an air gap and stores this 
term in the constant vector for solution. The flow diagram for subroutine AIRGAP 
follows. 



The program listing for subroutine AIRGAP is 
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* * 


SUBROUTINE AIRGAP ( COEF ♦ MDUMMY ♦ NDUMM Y ) 0859 

0860 

A SUBROUTINE TO CALCULATE THE AIR CONDUCTION AND THE RADIATION 0861 

* ACROSS AN AIR GAP - CANNOT BE USED TOR INVERSE SOLUTION 0862 

* THIS SUBROUTINE IS CALLED BY THE MAIN PROGRAM 0863 

* 0864 

DIMENSION COEF (MDUMMY ♦ NDUMMY ) 0865 

COMMON TIME«DELTAT*TIMSTOP*PRFREG«NO* IDIM* ICONVQ«G« 0866 

1 TEMP (1 00) ♦CONST ( 1 00 ) 0867 

COMMON /AGONLY/ NA t RGAP * ACRAD I (4 « 30 ) 0868 

COMMON /MATPROP/ MAT ( 1 00 ) t EMS ( 40 ) *RHO ( 10 ) *NCPPTS ( 10 ) ♦TCPTAB ( 100 ) « 0869 

1 CPTAB (100) ♦NKMPTS < 1 0 ) ♦ TTKTAB (100) ♦KMTAB (100) 0870 

REAL KMTAB 0871 

DIMENSION ATT AB ( 9 ) ♦ AKMTAB ( 9 ) 0872 

DATA NAKMPT ♦ ATTAB ♦ AKMTAB / 9 *400® * 600 « * 800 • * 1 000® * 1 200® * 1400® « 0873 

1 1 600 « ♦ 1 800 ® * 2000 © * 3® 1 8E— 6 * 4 *60E— 6® 5 ® 87E— 6 ♦ 7® 02E— 6 * 8 * 07E— 6<* 0874 

29® 06E— 6 *9® 94E— 6 ♦ 1 0®57E— 6® 1 0 ©87E— 6 / 0875 

* 0876 

DO 50 1*1 ♦NAIRGAP 0877 

NACBLK = ACRAD I (1*1) 0878 

CALL FTLUP (TEMP (NACBLK ) ®AK1 « 1 ♦ NAKMPT • ATTAB ♦ AKMTAB ) 0879 

I OBLK = ACRADI ( 2 « I ) 0880 

CALL FTLUP (TEMP ( I OBLK ) *AK2* 1 * NAKMPT ♦ ATTAB * AKMTAB ) 0881 

A I RK = ( AK1 +AK2 ) /2 • 0 0882 

* 0883 

SAVE= AIRK * ACRADI (4* I )/ACRADI (3® I ) 0884 

* 0885 

COEF ( NACBLK ♦ 1 ) =COEF (NACBLK * 1 >-SAVE 0886 

INDEX* IOBLK-NACBLK+1 0887 

IF (INDEX®GT®0) GO TO 5 0888 

INDEX* NACBLK- I OBLK+1 0889 

COEF ( I OBLK * I NDEX ) *COEF < I OBLK * I NDEX > + SAVE 0890 

GO TO 10 0891 

5 COEF ( NACBLK « I NDEX ) * SAVE + COEF ( NACBLK * I NDEX ) 0892 

10 COEF ( I OBLK ♦ 1 ) = COEF ( I OBLK * 1 ) - SAVE 0893 

* 0894 

* COMPUTE RADIATION-IN ACROSS THE AIR GAP 0895 

* 0896 

I MAT*MAT (NACBLK ) 0897 

J* I MAT*4— 3 0898 

EM 1 =EMS ( J ) +TEMP ( NACBLK ) * ( EMS ( J+ 1 >+TEMP ( NACBLK ) * ( EMS ( J+2 ) + 0899 

1 TEMP (NACBLK)* EMS(J+3))> 0900 

I MAT *MAT ( I OBLK ) 0901 

J=IMAT*4-3 0902 

EM2 *EMS ( J >+TEMP ( I OBLK > * ( EMS < J+ 1 ) + TEMP (I OBLK ) * (EMS < J +2 )+ 0903 

1 TEMP ( I OBLK)* EMS(J+3)>) 0904 

* 0905 

* STORAGE AS A CONSTANT PART OF THE EQUATION 0906 

* 0907 

HOLD= ®4835E-!2*ACRADi <4* I) /<1®0/ EMI +1®0/EM2 -1«0) 0908 

T1P4* TEMP (NACBLK )**4 0909 

T2P4= TEMP (I OBLK) **4 0910 

CONST (NACBLK )= CONST ( NACBLK ) +HOLD* (T1P4-T2P4 ) 0911 

CONST ( I OBLK ) s CONST ( I OBLK ) +HOLD* ( T2P4-T 1 P4 ) 0912 

50 CONTINUE 0913 

RETURN 0914 

END 0915 
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JOINT 


Subroutine JOINT computes the joint conduction coefficient and stores it in the 
coefficient matrix. The flow diagram for subroutine JOINT follows. 



The program listing for subroutine JOINT is 
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*** ♦** * * 


SUBROUTINE JOINT ( COEF * MDUMMYsNDUMMY ) 0916 

* 0917 

* A SUBROUTINE TO CALCULATE THE JOINT CONDUCTION TERM 0918 

* THIS SUBROUTINE Is CALLED BY THE MAIN PROGRAM 0919 

* 0920 

DIMENSION COEF (MDUMMY »NDUMMY > 0921 

COMMON TIME* DELT AT * T I M STOP ♦ PRFREQ , NO , I D I M , I CONVQ *G » 0922 

1 TEMP ( 1 00 ) ♦ CONST (100) 0923 

COMMON /MATPROP/ MAT (100)* EMS ( 40 ) , RHO (10)* NCPPTS (10)* TCPTA9 ( 1 00 ) * 0924 

1 CP TAB (100) tNKMPTS ( 1 0 ) * TTKTAB (100)* KM TAB (100) 0925 

COMMON /BLKDIM/ WD ( 1 00 > * VOL ( 1 00 ) *LEN ( 1 00 ) * NHOR « NVER 0926 

COMMON /JTONLY/ NJO I NT * A JO I NT ( 4 * 20 ) 0927 

REAL KMTAB 0928 

REAL LEN 0929 

* 0930 

* SET UP LOOP TO DO MORE THAN ONE JOINT TERM 0931 

* 0932 

DO 50 J=l*NJOlNT 0933 

* 0934 

NBLOCK = A JO I NT ( 1 * J ) 0935 

JTBLK* A JO I NT ( 2 « J ) 0936 

IF ( JTBLK ) 5*20,10 0937 

0938 

SIGN WAS NEGATIVE - USE WIDTHS 0939 

0940 

5 JTBLK* IABS(JTBLK) 0941 

D 1 * WD ( NBLOCK ) 0942 

D2=WD( JTBLK) 0943 

GO TO 15 0944 

0945 

SIGN WAS POSITIVE - USE LENGTHS 0946 

0947 

10 Dt*LEN< NBLOCK) 0948 

D2*LEN ( JTBLK ) 0949 

0950 

FIND NO OF MATERIAL AND KM OF JOINT BLOCK 0951 

* 0952 

15 I ORDER*! 0953 

I MAT * MAT (NBLOCK) 0954 

1*1 MAT* 1 0—9 0955 

NPRS=NKMPTS( I MAT ) 0956 

IF (NPRS«EQ*0 ) !ORDER*0 0957 

CALLFTLUP (TEMP (NBLOCK) *VALK1 , I ORDER * NPRS * TTKTAB ( I ) * KM TAB ( I ) ) 0958 

* 0959 

I ORDER* 1 0960 

I MAT * MAT (JTBLK) 0961 

I * I MAT* 1 0—9 0962 

NPRS*NKMPTS( I MAT) 0963 

IF (NPRS*EQ*0 ) I ORDER *0 0964 

CALL FTLUP (TEMP (JTBLK )* VALK2 * I ORDER* NPRS* TTKTAB ( I ) * KMTAB (I > ) 0965 

* 0966 

* PICK UP NEXT AREA AND HJ AND COMPUTE COEF « OF TEMPERATURE DIFFERENCE 0967 

* 0968 

HOLD* 2 * 0*A JO I NT ( 4 * J ) / ( 2 • 0 / A JO I NT ( 3* J ) +D 1 /VALK1 +D2/VALK2 ) 0969 

COEF (NBLOCK* 1 )* COEF (NBLOCK * 1 )-HOLD 0970 

COEF ( JTBLK * 1 ) *COEF ( JTBLK *l)-HOLD 0971 

INDEX * JTBLK-NBLOCK+1 0972 

COEF (NBLOCK, I ND£X) * HOLD 0973 

C 0974 

50 CONTINUE 0975 

RETURN 0976 

* 0977 

* ERROR 0978 

4 0979 

20 WRITE (6, 100) NBLOCK 0980 

100 FORMAT ( 1 Hi , 42H JOINT BLOCK NO SHOULD NOT BE ZERO * NBLOCK *16) 0981 

CALL EXIT 0982 

* 0983 

END 0984 
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COMPMTX 


Subroutine COMPMTX solves the symmetric coefficient matrix for temperatures. 
The technique used for solution is a Gaussian elimination with a back substitution. The 
flow diagram for subroutine COMPMTX follows. 



The program listing for subroutine COMPMTX is 
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* * * * 


SUBROUT I NE COMP M TX < COEF 9 MDUMM Y * NDUMM Y j 0985 

* 0986 

* A SUBROUTINE WHICH SOLVES THE SYSTEM OF SIMULTANEOUS EQS« USING 0987 

* A GAUSSIAN ELIMINATION ON THE SYMMETRICAL COEF® MATRIX - ONLY THE 0988 

* UPPER PORTION OF THE MATRIX (ABOVE DIAGONAL) HAS BEEN STORED 0989 

* THIS SUB® CANNOT BE USED FOR INVERSE AS IT IS NOT SYMMETRICAL 0990 

* THIS SUBROUTINE IS CALLED BY THE MAIN PROGRAM 0991 

* 0998 

D I MENS I ON COEF (M DUMMY ® N DUMMY ) 0993 

COMMON TIME*DElTAT«TIMSTOP*PRFREG*NO* ID I M ® I CONVO * G ® 0994 

1 TEMP (100)® CONST (100) 0995 

* 0996 

IST0P=NO-l 0997 

IF ( I O I M ® EQ » 1 ) GO TO 60 0998 

* 0999 

DO 30 1 = 1 « I STOP 1000 

* 1001 

DO 20 J=2«NDUMMY 1002 

* 1003 

11= I + J-l 1004 

IF (COEF ( I *J)®EQ*0® ) GO TO 20 1005 

M =1 1006 

* 1007 

DO 10 K*J*NDUMMY 1000 

* 1009 

IF (COEF (I *K)®EQ®0e ) GO TO 10 1010 

COEF ( I I ® M ) aCOEF( I I ®M> —COEF ( I ®K)*COEF ( I ♦ JJ/COEF ( ! « 1 ) 1011 

10 M=M+1 1012 

* 1013 

CONST ( If')* CONST (II) - CONST ( I >*COEF ( I ® J ) /COEF ( I , 1 ) 1014 

20 CONTINUE 1015 

30 CONTINUE 1016 

* 1017 

* 1018 

TEMP (NO >= CONST (NO) /COEF (NO® 1 ) 1019 

JSTOP= NDUMMY-1 1020 

* 1021 

DO 50 I = 1 » I STOP 1022 

SUM =0®0 1023 

M=NO-I 1024 

* 1025 

DO 40 J=l®JSTOP 1026 

IF ( (M+J ) «GT ®NO ) GO TO 40 1027 

SUM = SUM+ TEMP (M+J ) * COEF(M®J+t) 1028 

40 CONTINUE 1029 

* 1030 

50 TEMP ( M ) = (CONST (M ) —SUM ) /COEF (M ® 1 ) 1031 

GO TO 90 1032 

1033 

1034 

TRIANGULARIZATION AND SOLUTION OF ONE-DIMENSIONAL CONFIGURATION 1035 

1036 

60 DO 70 I=2*N0 1037 

* 1038 

11=1-1 1039 

COEF <1*1 ) = COEF ( I ® 1 ) - COEF< 1 1 ®2>**2/C0EF< I 1 «1 ) 1040 

70 CONST ( I ) « CONST ( I ) —CONST (II)* C0EF(II®2) / COEF(IItl) 104! 

4 1042 

TEMP (NO ) = CONST f NO ) /COEF ( NO « 1 ) 1043 

4 1044 

DO 80 1 = 1® I STOP 1045 

M= NO- I 1046 

80 TEMP ( M ) = ( CONST ( M ) — COEF <M*2 ) *TEMP (M+l )) /COEF < M « 1 ) 1047 

4 1048 

90 RETURN 1049 

END 1050 
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THINWAL 


Subroutine THINWAL solves a simplified temperature equation by calling sub- 
routine CONV for the convection term and subroutine RADOUT for the radiation-out term. 
The flow diagram for subroutine THINWAL follows. 



The program listing for subroutine THINWAL is 
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SUBROUTINE THINwAL 1051 

* 1052 

* A SUBROUTINE WHICH CALCULATES THIN WALL HEATING RATES AND TEMPS® 1053 

* THIS SUBROUTINE IS CALLED BY THE MAIN PROGRAM 1054 

* 1055 

* 1056 

COMMON T I ME *OElT AT *T I M STOP * PRFREQ* NO * IDI M * 1 CONVQ ♦ G * 1057 

1 TEMP (100) , CONST ( 1 00 ) 1 058 

COMMON /THIN/ TW DEPTH 1059 

COMMON /MATPROP/ MAT C 1 00 ) ♦ EMS ( 40 ) * RHO U 0 ) * NCPPTS (10)* TCPTA8 ( 1 00 > * 1060 

1 CPTA8 (100) %NKMPtS < 1 0 ) % TTKT AB (100) *KMTAB (100) 1061 

COMMON /ALLCONV/ CONVRO ( 30*5 ) * I DIFF « NOCONV *QCONV (30 ) * 1062 

1 TAW (30) ♦ IHORQ 1063 

REAL KM TAB 1064 

t NTEGER PRFREQ 1 0 65 

* 1066 

1*1 1067 

IPFCT=0 1068 

5 TIME?: TIME+DELTAT 1069 

CALL TRAJ 1070 

IF (IC0NVQ*EQ*3) GO TO 15 1071 

* 1072 

CALL ST AG ( I ♦ HVAL * TREC« HSUBOIF ) 1073 

GO TO <20* 10 >* IHORQ 1074 

10 CONVQ* HVAL *HSUBDIF 1075 

GO TO 25 1076 

15 CALL VANDR ( I ♦ HVAL * TREC ) 1077 

20 CONVQ* HVAL * (TREC-TEMP< 1) ) 1078 

* 1079 

25 I ORDERS i 1080 

IF (NCPPTS U >#Eq.O) IORDER=0 1081 

* 1082 

CALL FTLUP (TEMP ( 1 ) * CPVAL * I ORDER® NCPPTS ( 1 ) * TCPTAB ( 1 ) * CPTAB (1 )) 1083 

SAVE * DELTAT/(RHO( 1)* CPVAL*TWDEPTH ) 10B4 

* 1085 

IF (EMS ( 2 ) *EQ# 0« • AND* EMS (3 ) *EQ* 0 • * AND® EMS (4 ) • EQ*0« ) GO TO 30 1086 

* 1087 

EMSVALsEMSU H-TEMPU )*(EMS(2)+TEMP(i > * ( EMS < 3 ) +TEMP < 1 )*EMS<4>)> 1088 

GO TO 40 1089 

* 1090 

30 EMSVAL* EMS ( 1 ) 1091 

* 1092 

40 RAO I AT * •4835E—1 2 *EMSVAL * TEWP**4 1093 

* 1094 

DELTEMP* SAVE * (CONVQ -RADI AT) 1095 

* 1096 

TEMP ( I ) * TEMP(1>+ DELTEMP 1097 

* 1098 

I PFCT * I PFCT +1 1099 

IF ( I PFCT *NE* PRFREQ) GO TO 50 1100 

I PFCT = 0 M01 

* 1102 

* PRINT ANSWERS 1103 

WRITE (6*1 00 ) TI ME* CONVQ *R AO I AT* DELTEMP * TEMPI 1 ) 1104 

100 FORMAT (2X5HTIMF=F8*4 * 3X 1 2HCONVECT I ON* El 5. 8 *3X11 HRAD I AT ION* E15 1105 

1 *8*3X1 2H0ELTA TEMP* E 15.8* 3X1 3HTEMPERATURE* F15.8) 1106 

50 IF (T IME*LT *T 1MST0P ) GO TO 5 1107 

RETURN 1108 

END 1 1 09 
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CONV 


Subroutine CONV computes the heating-rate coefficient from either tabular input 
values or from computed values obtained in either the VANDR subroutine or the STAG 
subroutine. The flow diagram for subroutine CONV follows. 



The program listing for subroutine CONV is 


SUBROUTINE CONV < COEF * MDUMMY t NDUMM Y ) 1110 

* 1111 

* A SUBROUTINE TO CALCULATE THE CONVECTION TERMS USING GIVEN Q HEAT 1112 

* RATES OR H AND TAW VALUE OR IT USES HEATING RATES CALCULATED 1113 

* BY EITHER STAG OR VANDR SUBROUTINES 1114 

* THIS SUBROUTINE IS CALLED BY TWO SUBROUTINES - CONV AND THINWAL 1115 

* 1116 

DIMENSION COEF (MDUMMY *NOUMMY) 1117 

COMMON TIME*DELTAT*TIMST0P,PRFREQ#N0, I DI M ♦ I CONVO • G* 1118 

1 TEMP (100) * CONST (100) 1119 

COMMON /ALLCONV/ CONvRO (30*5 ) * IDIFF * NOCONV *QCONV (30 ) * 1120 

1 TAW (30) «!HORQ 1121 

COMMON /CVONLY/ HI T I ME ( 200 ) * HT AB ( 200 ) * T AWTAB ( 200 ) * QT AB (200 ) 1122 

COMMON /CVTRAJ/NRATlO 1123 

* 1124 

GO TO (5*10*10) ICONVG 1125 

* 1126 

5 LOCO*! 1127 

LOCH=s 1 1128 

I ORD* 1 1129 

* 1130 
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* SET UP LOOP FOR MORE THAN ONE CONV® TERMS 1131 

* 1132 

10 DO 100 I=1»N0C0NV 1133 

I CBLK • CONVRO ( 1 * 1 ) 1134 

1=1 1135 

* 1136 

GO TO (20*50*50) 1CONVQ 1137 

* 1138 

* GIVEN HEATING INPUT 1139 

* 1140 

20 1QH =CONVRO( 1*4) 1141 

I PTS»CONVRO (1*5) 1142 

IF ( I PTS«GT • 1 ) GO TO 25 1143 

IORD*0 1144 

IPTS=0 1145 

* 1146 

25 IF <IQH*EG*1> GO TO 35 1147 

* 1148 

* H AND TAW TABLES 1149 

* 1150 

CALL FTLUP (TIME * H VAL * 1 ORD * I PTS * HI T I ME * HT AB ( LOCH )) 1X51 

CALL FTLUP (TIME* TREC * I ORD * I PTS * H I T I ME* TAWTAB (LOCH ) ) 1152 

* 1 1 53 

IF ( ID IFF* EQ « 0 ) GO TO 30 1154 

IF ( I PTS *EQ® 0 ) lPTS-1 1155 

LOCH »L0CH4* I PTS 1156 

30 I 0RD= 1 1157 

IHORO * 1 1158 

GO TO 80 1159 

* 1160 

* Q TABLES 1161 

* 1162 

35 CALL FTLUP (TIME *QCONV( I ) * I ORD * t PTS *H! T I ME * QTAB (LOCQ > ) 1163 

IHORO * 2 1164 

* 1165 

IF ( IDIFF «EQ ® 0 ) GO TO 40 1166 

IF (!PTS.EQ®0) TPTS=1 1167 

LOCQ«LOCQ+ I PTS 1 1 68 

40 IORD*l 1169 

QCONV ( I ) =QCONV ( I > *CONVRO (1*2) 1170 

CONST ( I CBLK ) =CONST ( I CBLK ) -QCONV ( I ) 1171 

GO TO 100 1172 

* 1173 

* STAG® AND VAN DRIEST HEATING 1174 

* 1175 

50 NR AT 2 0= CONVRO C I *4 ) 1176 

CALL TRAJ 1177 

GO TO (105*60*70) I CONVQ 1178 

60 CALL STAG(I*HVAL*TREC*HSU8DIF) 1179 

* 1180 

GO TO (80*90) 1HORQ 1181 

* 1182 

70 CALL VANDR ( 1 * HVAL * TREC ) 1183 

* 1184 

80 QCONVCn* HVAL*CONVROC I *2) 1185 

T AW ( I >* TREC 1186 

COEF ( I CBLK * i ) = -QCONV ( I > +COEF ( | CBLK « 1 ) 1187 

CONST ( ICBLK)=CONST( I CBLK ) -QCONV ( I )*TREC 1188 

* 1189 

GO TO 100 1190 

* 1191 

90 QCONV ( I)*HVAL*CONVRO( I *2)*HSUBDJF 1192 

CONST ( I CBLK ) =CONST ( I CBLK ) -QCONV ( I ) 1193 

100 CONTINUE 1194 

RETURN 1 2 95 

* 1196 

105 WRITE (6*110) 1197 

110 FORMAT (1H1*46H ERROR IN ICONVG-SHOULD NOT BE 1 AT THIS POINT) 1198 

STOP 1 1 99 

END 1200 
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INVSOL 


Subroutine INVSOL solves the coefficient matrix by subroutine SIMEQ and then 
stores and writes out the computed values of the temperatures and the heating rates. The 
flow diagram for subroutine INVSOL follows. 



The program listing for subroutine INVSOL is 
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SUBROUTINE INV^OL ( COEF ♦ MDUMMY ) 1261 

* 1202 

* A SUBROUTINE WHICH HANDLES SOLUTION AND STORAGE OF ANSWERS FOR THE 1203 

* INVERSE SOLUTIONS - IT USES S I MEG ( A LIBRARY ROUTINE) FOR THE 1204 

* SOLUTION OF THE SIMULTANEOUS EQUATIONS 1205 

* THIS SUBROUTINE IS CALLED BY THE MAIN PROGRAM 1206 

* 1207 

DIMENSION COEFCMDUMMYsMDUMMY) , !PIV0T(30) 1208 

COMMON TIME*DELTAT*TIMSTOP»PRFREQ*NO, IDIM, ICONVQ#G» 1209 

1 TEMP (100 ) « CONST ( 1 00 ) 1210 

COMMON / I NVRS/ INVERSE « I NVBLK « TEMP I NV * NO I NV * I NVBLKS ( 4 ) *NOINVT# 1211 

1 T I NV ( 200 ) 4 TEM I NV <400 ) 1212 

* 1213 

CALL S I MEQ (COEF, MDUMMY* CONST *1 «* DUM * I P I VOT 4 MDUMMY * ISC) 1214 

* 1215 

QVAL- CONST ( INVBLK) 1216 

* 1217 

DO 10 1*1 ♦MDUMMY 1218 

* 1219 

10 TEMP ( I ) =CONST ( I ) 1220 

IF <NOINV*GT*l) GO TO 20 1221 

TEMP (I NVBLK )= TEMP INV 1222 

GO TO 40 1223 

* 1224 

20 SUM= 0 « 0 1225 

DO 30 J=2 ♦ NO I NV 1226 

L= I NVBLKS ( J ) 1227 

30 SUM= SUM + CONST (L) 1228 

TEMP (I NVBLK) = tEMPINV -SUM 1229 

* 1230 

40 WRITE ( 6 « 50 ) T I ME * DELTAT ♦ QVAl 1231 

50 FORMAT ( 1 HO ♦ 6X7HT I ME = F8 • 4 ♦ 6X 1 3HDELT A TIME * F8«5*6X4HQ = E16*8// 1232 

19X8HBL0CK NO 9 1 3x1 1 HTEMPERATURE/ ) 1233 

* 1234 

WRITE (6# 60 ) ( I ♦ TEMP (I)«I = 1# NO ) 1235 

60 FORMAT (12x1 3 4 1 2 XE 1 6 * 8 ) 1236 

RETURN 1237 

END 1238 
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BLOCK DATA 


Subroutine BLOCK DATA contains the tables for normal-shock-wave parameters in 
imperfect air. The program listing for BLOCK DATA follows: 



block 

DATA 


1239 

* 




1240 

* 

DATA STATEMENT INFORMATION 

1241 

* 

TABLES FOR NORMAL SHOCK WAVE PARAMETERS IN IMPERFECT AIR 

1242 

* 




1243 

* 

ATAB * 

ALTITUDE 

TABLE ( 1 OOOOFT— 400000FT ) 

1244 

* 

VTAB = 

VELOCITY 

TABLE (6000-50000 FT/SEC) 

1245 

* 

ARRAY 1 * 

POP/P 1 * 

PITOT TO FREE-STREAM PRESSURE RATIOS 

1246 

* 

ARRAY2 “ 

ROP/R1 < 

NORMAL SHOCK STAGNATION DENSITY RATIOS 

1247 

* 

ARRAY3 » 

T0P/T1 * 

NORMAL SHOCK STAGNATION TEMPERATURE RATIOS 

1248 

* 




1249 


COMMON 

/ARRAYS/ 

ARRAY 1 ( 1800 ) t ARRAYS ( 1 800 ) * ARRAY3 ( 1 800 ) 

1250 


1 » ATAB < 40 ) ,VTAB<45 ) 

DATA ( ( ARRAY 1 ( I ) « 1= 1 i 90 ) = 


1251 

1252 


X40.829, 

55 © 548 f 

72,670© 

92.148© 

114.038© 

138.280© 

164.896© 

1253 

X193.791 * 

224.864© 

258.265, 

293*908, 

332,066© 

372.598© 

415.635© 

1254 

X461 *145* 

508.870© 

558 . 998 © 

61 1 ©397© 

666*274© 

723.309© 

782*746* 

1255 

X844 © 403 © 

908*371 © 

974,556© 

1043,079 

© 1113.746 

© 1 186.627© 

1261 .598© 

1256 

XI 338 ©723 

• 0 ©0 © 

0,0© 

0,0© 

0.0© 

0.0© 

0.0© 

1257 

X0.0© 

0©0© 

0.0© 

0.0© 

0.0© 

0.0, 

0.0© 

1258 

XO© 0© 

0*0© 

0.0© 





1259 

X44 • 034 « 

59,925, 

78,415, 

99.452© 

123.093© 

149.303© 

178*025© 

1260 

X209.256© 

242*816© 

2T8.919© 

317.404© 

358.552© 

402.476© 

448.928© 

1261 

X498© 00 1 © 

549*593© 

603,781 © 

660.481 © 

719.679© 

781 .359, 

845.530© 

1262 

X91 2 ©226 © 

981 ©238© 

1052,855 

© 1126.818 

,1203.137 

© 1281.751 . 

1362.677© 

1263 

XI 445 ©974 

• 0 • 0 © 

0.0© 

0,0© 

0.0© 

0.0© 

0.0© 

1264 

X0©0© 

0*0© 

0,0© 

0.0© 

0.0© 

0.0© 

0.0© 

1265 

XO.O* 

0©0© 

0*0) 





1266 

DATA C (ARRAY! ( I ) © 

1= 91 ©180)= 




1267 

X47 • 787 « 

65© 054, 

85,145© 

108.006© 

133.702© 

162.244© 

193.459© 

1268 

X227.358© 

263 #933© 

303,082© 

344.944© 

389.806© 

437.498© 

487.986© 

1269 

X541 *330© 

597 ©555© 

656.392© 

718.058© 

782.389© 

849.449© 

919. 198, 

1270 

X991 ©700© 

1066.742 

© 1 144.459 

© 1224,906 

© 1307.860 

© 1393.343© 

1481 .233© 

1271 

XI 571 *628 

©0©0© 

0 ©0 © 

0,0© 

0.0© 

0.0© 

0.0© 

1272 

XO.O© 

0.0© 

0.0© 

0.0© 

0.0© 

0.0© 

0*0© 

1273 

XO • 0 © 

0*0© 

0.0© 





1274 

X50 * 435 © 

68*672, 

89.896, 

114*047, 

141 .228, 

171 ,420, 

204.449* 

1275 

X240.248© 

278.810© 

320*187© 

364*587© 

4! 1 .791 , 

462.281 © 

515,684© 

1276 

X5T2.104© 

631 ,419© 

693*661 , 

758.842, 

826.859© 

897.682© 

971.509© 

1277 

XI 048 ©037 

© 1 127*402 

,1209,658 

©1294.578 

© 1382, 184 

© 1472*453© 

1565.254© 

1278 

XI 660 ©735 

© 1759.01 1 

©0*0© 

0,0© 

0.0© 

0*0, 

0*0© 

1279 

xo.o© 

0©0© 

0.0, 

0,0© 

0,0© 

0.0, 

0,0© 

1280 

X0«0© 

0*0© 

0,0) 





1281 

DATA ( (ARRAY1 ( I ) © 

1= 181,270)= 




1282 

X50*437© 

68,677, 

89.91 1 , 

114,081 © 

141 *332© 

171 ,528© 

204,551 © 

1283 

X240 » 449 © 

279.033© 

320*398© 

364*700© 

412*208© 

462,634© 

516,143© 

1284 

X572,582© 

631 ©966© 

694.3T2© 

759,482© 

827.592© 

898.509© 

972,303© 

1285 

X 1 049 ©014 

, 1 128,436 

© 1210*732 

© 1295.692 

© 1383.363 

© 1473,529© 

1566,326© 

1286 

XI 661 ©780 

©1760, 1 13 

,0.0, 

0,0© 

0,0© 

0*0© 

0.0© 

1287 

XO.O© 

0*0© 

o.o. 

0,0, 

0,0, 

0*0, 

0*0© 

1288 

xo.o. 

0*0© 

0©0© 





1289 

X50 ® 440 © 

68,682© 

89.924© 

1 14.124, 

141 *434© 

171 ,635© 

204*726© 

1290 

X24 0*645. 

279,260© 

320*637© 

364,91 1 © 

412*412© 

462,976© 

516.619© 

1291 

X573 © 057 © 

632,499© 

694.922© 

760.266© 

828,301 © 

899,295© 

973.160© 

1292 

X1049®867 

©1129,443 

©1211,713 

©1296,792 

,1384*372 

© 1474,581 © 

1567.308© 

1293 

XI 662*737 

©1761 .119 

© 1862.512 

»0®0© 

0.0© 

0,0© 

0*0© 

1294 

xo.o© 

0.0© 

0.0© 

O.o© 

0,0© 

0,0© 

0 © 0 © 

1295 

xo.o© 

0,0© 

0.0) 





1296 
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DATA ((ARRAY! (1)9 1= 271*360)= 

X50 • 1 52 * 68*290, 89*420* 113*516* 

X239 ® 4 1 4 * 277*779* 318*913* 363.117® 
X570 ,257 * 629*449* 691*475* 756*406* 
XI 044 *678 * 1 123*8^3* 1205*705* 1290*241 * 
XI 654 ©045* 1 751 *944, 1852*883,0*0* 

XO.O® 0*0 * 0*0* 0,0® 

XO 9 0 * 0*0 * 0*0* 

X49 « 474 , 67*366* 88*220® 112*028® 

X236 « 285 * 274*113® 314*690* 358*361® 
X562 *929 * 621 *313® 682*594® 746*681* 
XI 031 *237*1 109*353*1 190*166* 1273*543* 
XI 632 *322 *1728*973® 1828*673,0*0® 

xo * 0 • 0*0 * 0®0® o,o* 

XO.O* 0*0® 0*0) 

DATA ( ( ARRAY 1 ( I ) ® 1= 361*450)= 

X48 s8 1 5 * 66*469® 87,056® 110*596® 

X233 « 326 ® 270*589® 310,666® 353*730® 
X555*749® 613*479® 673*899® 737*182® 

X 1 0 1 8 * 1 38 * 1 095 * 255 * 1 1 74 * 999 ® 1 257 , 270 * 
XI 61 1 *153*1706*636* 1805*129® 1906*603® 
XO* 0 ♦ 0*0® 0*0® 0*0® 

XO *0® 0*0® 0*0® 

X48 * 1 75 ® 65,596 « 95.927® 109*200® 

X230.331 ® 267*159® 306*673® 349,215® 
X548 ,810® 605.734® 665*503® 727*947® 
Xl 005.355® 1081 ,5o2® 1 160*201*1241 *363 
XI 590 *384® 1684*908® 1782*249® 1882*493 





1297 

140*698* 

170*743® 

203*720® 

1298 

410*313® 

460*617* 

513,994* 

1299 

824*290® 

894,841 * 

968,341 ® 

1300 

1377*356 

*1466,981 

*1559*135® 

1301 

0*0* 

0*0® 

0,0® 

1302 

0*0® 

0*0® 

0*0® 

1303 




1304 

138*843® 

168*567® 

201 *085® 

1305 

405,105® 

454.747® 

507,316® 

1306 

813*608® 

883,387® 

955,876® 

1307 

1 359*447 

*1447*754 

*1538*632® 

1308 

0*0® 

0*0* 

0*0® 

1309 

0,0® 

0*0® 

0*0® 

1310 




131 1 




1312 

137*070® 

166*455® 

198,560® 

1313 

399.816, 

448*903® 

500*871 ® 

1314 

803*274® 

872 .124* 

943*730® 

1315 

1341 *928 

® 1429*008® 1518*669® 

1316 

0*0® 

0*0® 

0*0® 

1317 

0,0® 

0*0® 

0*0® 

1318 




1319 

135*368® 

164,349® 

196*068® 

1320 

394*784® 

443*275® 

494*668® 

1321 

793 .185® 

861 *172® 

931*874® 

1322 

,1324*846 

® 1410*718 

♦1499,204® 

1323 

1985*600*0*0® 

0*0® 

1324 


XO * 0 * 
X0*0* 
DATA 


0 * 0 ® 

0 . 0 ® 

( (ARRAY! ( I ) * 


0 * 0 ® 0 * 0 ® 
0*0 ) 

1= 451 *540)= 


0.0 ® 


0 * 0 ® 


0 * 0 ® 


1325 

1326 

1327 


X47 » 061 ® 

64*077® 

83.953® 106,720® 

132.313® 

160*635* 191*616* 

1328 

X225, 1 24 ® 

261 *051 * 

299.630® 341*310® 

385,868® 

433*261® 483*390® 

1329 

X536.348® 

591 ,967® 

650*382® 711*437® 

775,199® 

841,615® 910.721® 

1330 

X982.527® 

1056*900 

« 1 133,797*1213,049 

*1294*512 

® I378.317®1464*777® 

1331 

Xl 554 « 1 08 

*1646,391 

*1741 ,585® 1 839*612 

* 1940*455 

* 2044*039 « 0 .0® 

1332 

xo»o® 

0*0® 

0*0® 0*0* 

0*0® 

0,0® 0*0® 

1333 

xo.o® 

0*0® 

0,0® 



1334 

X45* 434 ® 

61 *859® 

81,064* 103.071 ® 

127.807* 

155*176* 185.048* 

1335 

X2 1 7 * 4 1 8 * 

252,052® 

289*329, 329.561* 

372*613* 

418.347® 466*819® 

1336 

X51 7 ,959 ® 

571 *721 * 

628*050® 687.037* 

748.588® 

812*766® 879*466® 

1337 

X948.807® 

1020,637 

*1094*816* 1 171 .253 

* 1249,807 

* 1330*637* 1414.137* 

1338 

Xl 500 *484 

® 1589*654 

*1681.638*1776*385 

*1873*788 

* 1973,874*2076*634 ® 

1339 

XO.O* 

0*0* 

0*0® 0*0® 

0*0® 

0*0® 0,0* 

1340 

XO.O® 

0*0® 

0,0) 



134! 

DATA ( ( ARRAY1 ( I ) ® 

1= 541 «630)= 



1 342 

X43.920® 

59*794® 

78*377® 99*670® 

123.601 « 

150*053® 178.975* 

1343 

X21 0,198® 

243*667* 

279,731® 318.603® 

360*252® 

404.547® 451*417® 

1344 

X500.808® 

552,825® 

607.306® 664*258* 

723*805® 

785*817* 850*342® 

1345 

X917.355® 

986,777® 

1058,467* 1 132*265 

*1208*087 

*1286*188*1366*979® 

1346 

X 1450,487 

*1536*786 

* 1625*789* 1717*440 

*181 1 ,678 

® 1908*474*2007*863® 

1347 

X21 09*758 

® 0 #0 * 

0*0® 0*0® 

0*0® 

0,0® 0,0® 

1348 

X0,0® 

0,0® 

0,0® 



1349 

X42.505® 

57,868* 

75,869® 96*498® 

1 19.664® 

145*260® 173*280® 

1350 

X203.474® 

235.812® 

270*744® 308,393* 

348,723® 

391 *613* 436*931 * 

1351 

X484 , 826 ® 

535,093® 

587*851* 642.989* 

700.602® 

760,668* 823*080® 

1352 

X887.967® 

955*124® 

1024*473*1095.803 

® 1169. 103 

* 1244.670*1322.879* 

1353 

X 1 403 ® 8 1 6 

*1487*403 

® 1573*615® 1662*382 

* 1753.61 l 

*1847*367*1943.577® 

1354 

X2042 , 239 

*2143*208 

* 0,0 ♦ 0*0® 

0*0* 

0,0 ® 0*0® 

1355 

XO.O, 

0*0* 

0,0 ) 



1356 


74 



DATA ( ( ARRAY 1 (!)$ ! = 631*720)= 1357 

X41.182® 56® 067 , 73.526# 93*529® 115.974® 140*798* 167.908# 1358 

X 1 97 a 1 75 « 228*431* 262*265* 298*849* 337*947* 379*482® 423*452® 1359 

X469®795® 518 *503® 569*599® 623*024® 678*877® 737*066® 797*591® 1360 

X860 ® 420 * 925*464® 992*608® 1 06 1 *628 * 11 32 « 570 * 1 205 *790 • 1 281 « 624 * 1361 

X 1360® 101 *1441 * 1 64 « 1 524 *752 * 1 6 1 0 *769 # 1 699 . 224 ♦ 1 790 • 093® 1 883 • 347® 1362 

X1978«953 *2076*91 0 «21 77*2! 0*0*0® 0*0® 0*0® 0*0# 1363 

X0.0* 0*0® 0*0® 1364 

X40 * 508 ® 55*155, 72*349® 92*037® 114*136® 138*567* 165*234* 1365 

X193*990* 224*692® 258*017® 294*024® 332*515* 373*388® 416*677® 1366 

X46H« 243 ® 510*228® 560*444® 613*059® 668*020® 725*218® 784*775® 1367 

X846 © 600 ® 910*570® 976*585® 1 044 *41 2 • 1 H 4 • 1 27# 1 186* 1 8 1 * 1 260 • 838 * 1368 

XI 338* 123*1417*921 ♦ 1500*205® 1 584 *854 * 1 67 ! *910® 1761 *329*1853*103* 1369 

X 1 947 *208*2043*580*2142® 295 * 2243 *314*0*0* 0*0® 0®,0® 1370 

X0®0® 0*0® 0*0) 1371 

DATA ( (ARRAY1 ( I ) * 1= 721*810)= 1372 

X40 * 509 * 55*164, 72*378® 92*089® 114*216® 138*657® 165*342® 1373 

XI 94 * 051 * 224*765® 258*158® 294*181® 332*680® 373*616® 416*886® 1374 

X462*506 ® 510*453* 560*766® 613*401® 668*435® 725*618® 785*168* 1375 

X847 » 025 * 910*996® 977*000® 1044*771*1114*468®M86e565®1261®317® 1376 

XI 338 *687 ® 1418*584® 1500*907*1585*604® 1672*730® 1762*263*1854*105® 1377 

XI 948*25892044*732*2143*525*2244*651 *2348*002*2453*712*0*0® 1378 

X0«0* 0*0® 0*0® 1379 

X4 1 *227 9 56*155® 73*698® 93*788® 116*330® 141*218® 168*393® 1380 

Xl 97 « 594 ® 228*908® 262*914® 299*624# 338*837® 380*509® 424*560® 1381 

X471.075® 519*893® 571*133® 624*733® 680*702® 738*983, 799*685* 1382 

X862 *667 ® 927*844® 994*985® 1 063 *924 ® 1 1 34 . 847 ® 1 208 #308 * 1 284 # 498 ® 1383 

XI 363 *358 ® 1444 *776 ® 1 528*654® 1614*961 #1703*776® 1794*990*1888*535* 1384 

X 1 984*440 ® 2082 • 754 #2183* 359 *2286*31 1 #2391 * 627 ® 2499* 293 #2609 * 296 * 1385 

X0*0® 0*0* 0*0) 1386 

DATA C(ARRAY1(I), 1 = 811*900)= 1387 

X42 * 1 63 « 57*445® 75*415® 95*995® 119*060® 144*535® 172*322® 1388 

X202* 1 78 ® 234*256® 269*074* 306*673* 346*780® 389*431* 434*567, 1389 

X482* 1 47 * 532*133® 584*530® 639*412* 696*622® 756*354* 818*482* 1390 

X882 • 945 ® 949*622® 1018*289® 1088*766*1161 *303® 1236*541 * 1314*601 ® 1391 

X 1 395 » 376 ® 1 478 *744,1564* 636 ♦ 1 653 * 070 *1743. 986 ® 1 837 *308® 1933 *078® 1 392 

X2031 *255*2131 . 840 « 2234 « 834 * 2340 *2 1 0 * 2447*994 ® 2558 • 1 48 * 2670 * 728 * 1393 

X2785 • 62 3 ♦ 0 • 0 * 0*0* 1394 

X43 • 1 42 * 58*797® 77*212® 98.304® 121.911® 147*990® 176*452® 1395 

X206.986® 239*822® 275.517® 313*996® 355*094® 398*793® 445*027® 1396 

X493.709® 544*913® 598*585* 654*716® 713*418® 774*584* 838*184® 1397 

X904.161 ® 972*356® 1042.641 * 1 1 14*735® 1188*981® 1266*097*1346*105® 1 398 

XI 428*850® 1514.249* 1602*278® 1692*847® 1735*893* 1881 .504*1979*578® 1399 

X2080* 132 *2183* 172 #2288.672 *2396*623 #2507*046® 261 9*874 *2735*070® 1400 

X2852 *915® 2973 * 257 , 3095 » 966 ) 1401 

DATA (CARRAYltl)* 1= 901*990)= 1402 

X45 *015® 61*375® 80*622® 102.659* 127*320® 154*569® 184*294® 1403 

X2 16*1 49 ® 250*386® 287*748® 327.910® 370*915® 416.560® 464.803* 1404 

X515.679* 569*163® 625*248® 683*866* 745.192® 809.097® 875.452® 1405 

X944.356® 1015.574* 1088.963*1 1 64 » 1 53 ® 1 24 1 * 70 1 ® 1322*299* 1405*916® 1406 

XI 492*355® 1581 #6l3® 1673*567® 1 768 * 1 83 « 1 865 « 387 * 1 965# 235 ® 2067 » 749 ® 1407 

X2 1 72 *843 *2280. 488 *2390* 730 *2503. 628 *26 18. 919 *2736 *765 *2857# 223® 1408 

X2980 .348 #3106*147* 3234 « 352 ♦ 1409 

X47.308® 64*533* 84*793# 107*978® 133.923# 162.610® 193*878* 1410 

X227.384® 263*357® 302*707® 345*005® 390*259® 438*209® 488*986® 1411 

X542.520® 598*818® 657*809® 719*506® 783*987® 851*204® 921*027® 1412 

X993.556® 1068*484,1 145*599*1224*570*1306* 165*1391*041 *1479*049® 1413 

XI 570. 042® 1664.018® 1760.830*1860*376# I 962. 672 ® 2067# 792 ® 21 75 #679 • 1414 

X2286* 254 #2399*531 ® 25 1 5 * 546 ® 2634 *238 * 2755* 570 * 2879 *559 ® 3006 * 329 * 1415 

X3 135*901 *3268* 1 « 3403 « 1 87 ) 1416 


75 



data ( ( ARRAY 1 ( I ) , 1= 991,1080)= 1417 

X49.848, 68*031, 89*413, 113.869, 141*248, 171.510, 204.491, 1418 

X239.794* 277.756, 319.289, 363.926, 411.631, 462.236, 515.831, 1419 

X572.271, 631.673, 693.856, 758.960, 826.966, 897.815, 971.564, 1420 

XI 048.048,1 127.083,1 2Q8.317, 1291 .494,1377.615, 1467.228,1560.136, 1421 

XI 656. 203, 1755.374, 1857.527, 1962.585,2070.587,2181 .486,2295.266, 1422 

X241 1 .900,2531 .420,2653.712*2778.956,2906.912,3037.71 3,3171 .562, 1423 

X3308 .126,3447. 770 , 3589 . 705 , 1424 

X52.679, 71.925, 94.565, 120*444, 149.424, 181.431, 216.318, 1425 

X253.602, 293.820, 337.726, 385.001, 435,417, 489.022, 545.698, 1426 

X605.442, 668.230, 734.043, 802.897* 874.879, 949.835, 1027.860, 1427 

XI 1 08.776,1 192.363,1278.169, 1 366 • 080 * 1 457 . 232 , 1 552* 1 35 ♦ 1 650 • 507 , 1428 

XI 752.210, 1857, 180, 1965,294,2076.449,2190.728,2308.101 ,2428.493, 1429 

X2551 .881 ,2678.324,2807.719,2940.156,3075.575,3214.069,3355.639, 1430 

X3500 .234 , 3647.849 , 3798 • 275 ) 1431 

DATA ( ( ARRAY 1 ( ! ) , 1= 1081,1170)= 1432 

X55.852, 76.292, 100.342, 127.814, 158.586, 192.542, 229.555, 1433 

X269.039, 311.799, 358.406, 408.631, 462.183* 519.052, 579.216, 1434 

X642.616* 709.235* 779.080, 852*196, 928.578, 1 608 * 1 86 1 1 090 *988 , 1435 

XI 176.855, 1265.520,1356.474, 1 449 .667 , 1 546 * 508 , 1 647. 336 , 1751 .821 , 1436 

X 1 859.858 , 1 971 .301 ,2086.094,2204.1 15,2325.433,2450.014,2577.821 , 1437 

X2708 • 773 , 2843 . 0 1 2 , 2980 • 386 ,3120.949, 3264 .751, 341 1.804, 3562 .189, 1 438 

X3715.61 1 ,3872.297,4032.001 , 1439 

X59.435, 81.221, 106.869, 136.137, 168.931* 205.105, 244.513, 1440 

X2S6.483, 332.072, 381.839, 435.317, 492.372, 552.912, 617*080. 1441 

X684.577, 755.563, 829.941, 907.817, 989.220, 1074.028,1162.273, 1442 

XI 253 .693, 1348.094, 1444.861 , 1544.026,1647.299,1754.801 ,1866.219, 1443 

XI 981 .360,2100.152,2222.481 • 2348 .253 , 2477 • 498 , 26 l 0 .232 , 2746 ♦ 386 , 1444 

X2885. 942, 3023. 975, 3175. 342, 3325.141 ,3478.282,3634*986,3795.271 , 1445 

X3958 .822,4125.702, 4296 • 070 ) 1446 

DATA C(ARRAYUI), I = 1171,1 260 ) - 1447 

X60.385, 82.559, 108.664, 138.436, 171.767, 208.536, 248.601, 1448 

X291.161, 337.580, 388.209, 442.599, 500.621, 562.224, 627.327, 1449 

X696.029, 768.177, 843.864, 922.956, 1 005 • 678 , 1 091 .955 , 1 1 81 .662 , 1450 

XI 274. 61 0, 1370.481 . 1 468. 654 , 1 569 • 406 , 1 674 • 527 , 1783.949,1897.317, 1451 

X20 14. 385, 21 35. 170,2259.576,2387.557,2518.980,2653.919,2792.391 , 1452 

X2934.291 ,3079.663, 3228.554, 3380.953, 3536,714, 3695.931 ,3858.61 1 ♦ 1453 

X4024. 869, 4 194. 950, 4368 *029, 1454 

X60.389, 82.602, 108.752, 138*555* 171.905, 208.705, 248.753, 1455 

X291.245, 337.779, 388.391, 442.851, 500.968, 562.594, 627.747, 1456 

X696.401, 768.622, 844.387, 923.616, 1 006 . 250 , 1 092.539 , 11 82 .295 « 1457 

XI 275.333, 1371.142,1 469.144,1569.938,1675,250, 1784.810,1898.324, 1458 

X20 15. 547, 2 136. 355, 2260 .785 ,2388. 898, 252 0,497, 2655 .566, 2794 .128, 1459 

X2936. 155,3081 .660*3230.591 ,3383.048,3539.021 ,3698*597,3861 .424, 1460 

X4027. 656, 4 19^.444, 4370 .944 ) 1461 

DATA ((ARRAYl(I), 1= 1261,1350)= 1462 

X60.394, 82.648, 108.823, 138.672, 172.023, 208.851, 248.876, 1463 

X29 1.360. 337.951, 388.663, 443.177, 501.267, 562.927, 628.109, 1464 

X696.814, 769.000, 844.802, 924.192, 1 006 • 896 , 1 093 . 1 39 , 1 ! 82 • 894 , 1465 

XI 275.901 , 1 371 .771 , 1469.602,1570.469,1675.993, 1785.690, 1899.305, 1466 

X20 1 6 • 677 ,2137.635, 2262 • 087 , 2390 .153, 252 1.917, 2657.057 , 2795 • 735 , 1467 

X2937. 900, 3083. 657, 3232. 671 ,3385.135,3541 .175,3700*914,3864.102, 1468 

X4030. 684,4200. 578, 4373.841 , 1469 

XS9.003, 80.789, 106.387, 135.575, 168.142, 204.131, 243.185, 1470 

X284.646, 330.221, 379.825, 433.041, 489.848, 550.116, 613*806, 1471 

X680.912, 751.477, 825.425, 902.950, 983.926, 1068.228,1155.892, 1472 

X! 246.673, 1 340.330,1435.641 ,1534.287, 1 637.561 , 1744.875,1855.945, 1473 

XI 970.661 ,2088.925,2210.640,2335.731 ,2464.398,2596.428,2731 .933, 1474 

X2870.793, 3013.21 1 ,31 59 • 073 , 3308 • 1 97 , 3460. 457 , 361 6.430 , 3775.875. 1475 

X3938.951 ,4105.511 ,4274.803) 1476 
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DATA ( ( ARRAY 1 ( I ) * r= 1351*1440)= 1477 

X56 *262 * 77.076, 101.510* 129.330* 160.403* 194*677* 231*856* 1478 

X271 . 342 * 314.861* 362*186* 412*949* 467*120* 524.535* 585*303* 1479 

X649.251 * 716*476* 787*020* 860*802* 937*979* 1018*439*1102.061* 1480 

XI 188.624*1277.729*1 368.368* 1462.533*1561 • 102*1663.515*1769.519* 1481 

XI 878.897* 1991 .654 * 2 1 07 • 748 * 2227 . 156 *2349 . 773 * 2475.625 * 2604 . 771 * 1482 

X2737. 106*2872. 732*301 1 .651 *3153.968*3299.400*3447.981 *3599.819* 1483 

X3755 .096 * 3913.777 , 4075.768 * 1 484 

X53.772* 73.704* 97.0 7 8* 123.646* 153.311* 186.093. 221*531* 1485 

X259.241 * 300*868* 346*155* 394.689* 446.366* 501.297* 559.297* i486 

X620.472* 684.672* 752.032* 822.592* 896.233* 973.114* 1053*019* 1487 

Xl‘l 35.743* 1220.766* 1307. 168* 1397.303* 1491*578.1589.466*1690.764* 1488 

X 1795. 365* 1903. 132 *20 14. 043 *21 28 .139 *2245. 337* 2365. 638 *2489. 027* 1489 

X261 5 .503 *2745. 075. 2877.672 *30 13.506 *3! 52.509 *3294 .637* 3439.885* 1490 

X3588 • 090 ♦ 3739 • 456 * 3894 » 296 ) 1491 

DATA ((ARPAYlO). 1= 1441*1530)= 1492 

X51.223* 70.243* 92.513* 117.803* 146.094* 177.230* 210*927, 1493 

X246.818* 286.545* 329.670* 375.864* 425.111* 477.329, 532.603* 1494 

X590.864* 652.025* ”16*lUf 783*298* 853.463* 926.598* 1002.697* 1495 

X 1 081 .398*1162.271 .1244.406* 1 330.355 * 1420.21 9 ♦ 151 3.454* 1609.884 * 1496 

XI 709.510* 1812. 181 * 1 9l 7. 8 1 0* 2026 .4 15 * 21 38 • 023 ♦ 2252.622 *2370 • 11 4 • 1497 

X2490.587* 261 3 .956 *2740* 268 *2869.51 8 *3001 .701 *3137.069*3275.431 * 1498 

X3416.751 *3560.978*3708.129* 1499 

X47.870* 65.667* 86.475* 110.078* 136.464* 165.618* 196.952* 1500 

X230.474* 267*664* 307.904* 351.077* 397.068* 445.831* 497.383* 1501 

X551.750* 608.929* 668.765* 731.448* 796.985* 865.275* 936.327* 1502 

XI 009*763* 1085. 156,1 161 .770*1242.134.1326.127* 1413.244*1503.291 « 1503 

X1596. 302* 1692. 191 * 1790.864* 1892.261 *1996.481 *2103*480*2213.191 , 1504 

X2325. 659 *2440. 907 *2558. 979 *2679. 698 *2803. 154 *2929 .320 *3058 .489, 1505 

X3190.531 *3325.316*3462.808) 1506 

DATA {(APPAYl(I)* 1= 1531*1620)= 1507 

X44.942. 61*663* 81.192* 103.329* 128.057* 155.370* 184.722* 1508 

X216.200* 251.122* 288.874* 329.362* 372.484* 418.257* 466.591* 1509 

X517.575* 571.239* 627.340* 686.101* 747.573. 811.622* 878.275* 1510 

X947.126, 1017.712*1089.515* 1164.999* 1243.843* 1325*608* 1410*088* 1511 

XI 497. 266* 1587.243. 1679*790* 1774.955* 1872.691 *1973.017*2075.948* 1512 

X2181 .401 *2289.51 2 *2400* 236*251 3. 529* 2629. 373* 2747. 739*2868. 734* 1513 

X2992. 61 7, 31 19.063*3248.136* 1514 

X42.363, 58.135* 76.526* 97.396* 120.705, 146.350* 173.930* 1515 

X203.620* 236.508* 272.069* 310.219* 350.839* 393.887* 439.431* 1516 

X487.415* 537.917, 590.793* 646.123, 703.982* 764.311. 827.034* 1517 

X89 1 • 869 * 958 .214, 1 025 • 802 , 1 096 • 968 * 1 1 71 . 253 * 1 248.272 ♦ 1 327 • 859 * 1518 

XI 409.949* 1494.673* 1581 .848*1671 .449*1763.445* 1857.961 *1954.873* 1519 

X2054. 158*2155.919*2260. 179*2366.861 *2475.939*2587.411 *2701 .360* 1520 

X281 7.990 *2937. 1 39*3058.678 ) 1521 

DATA ( t ARRAY 1 { I ) * 1= 1621*1710)= 1522 

X38.178* 52.389, 68,932* 87.686. 108.623* 131.749* 156.429* 1523 

XI 83 . 1 92 * 212.777* 244.795* 279.076* 315.623* 354.338* 395.261* 1524 

X4 38.415 * 483.831* 531.383* 581.104* 633.185* 687.405* 743.779* 1525 

X802.093* 861.629* 922.410* 986*496* 1 053. 336 * 1 1 22 .628 ♦ M94 .207 * 1526 

X1268. 055, 1344. 197* 1422.625* 1503.210* 1585.974 ♦ 1670 .928* 1 758 .089 * 1527 

X1847. 382* 1933.852*2032.581 *21 28 .539 * 2226.634 * 2326.928*2429.400 * 1528 

X2534 . 259 * 264 1.410* 2750 . 733 * 1529 

X.OOO* .000* .000* .000* 98*341* 119,298* 141,545* 1530 

XI 65*81 4* 192.609* 221.587* 252.582* 285.627* 320.680* 357.707* 1531 

X396.732* 437.814* 480.784* 525*772* 572*856* 621.950* 672.968* 1532 

X725.685* 779.457* 834.472* 892.517* 953.019* 1 01 5*726* 1 080 .51 4 ♦ 1533 

XU 47. 353, 1216.241 * 1 287. 173 * 1 360*061 *1434.930* 1511 .788*1590.604, 1534 

XI 671 .369*1754.139*1838.956* 1 925 .746 ♦ 201 4 • 483 * 21 05 .200 *2197 .979 . 1535 

X2292.931 *2389.870*2488.785) 1536 
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DATA ( ( ARRAY1 ( I ) * 

1= 1711® 

1800 ) = 




1537 

x*ooc® 

0*0* 

*000, 

*000, 

» 000 , 

108*989, 

1 29*273 « 

1538 

X 1 51 *476, 

1 75 *976 » 

202 * 424 ® 

230*727, 

260*910, 

292*891 , 

326*704, 

1539 

X362.342, 

399*801 « 

439*044, 

480*164, 

523*171 , 

567.977, 

614*565® 

1540 

X662 ® 658 ® 

71 1 *658$ 

761 *929, 

814*985, 

870.265, 

927*545, 

986*709, 

1541 

X 1 047 *757 

$111 0*697 

, 1 175*446, 1241 *962 

♦1310,312 

,1380*457,1452*399, 

1542 

XI 526 *171 

$1601 *81 1 

, 1679*252 

,1758*451 

,1839*460 

, 1922.361 

,2007*264® 

1543 

X2094 *014 

*2182*461 

,2272*705, 




1544 

xo«o® 

0*0* 

0*0, 

*000, 

*000, 

*000, 

113.227, 

1545 

X 1 32 « 383 * 

1 53 « 849 * 1 77 * 1 0 $ 202 

*01 ,228*541,256*546,286*134, 

1546 

X3 1 7 #244 , 

350*088* 

384*425, 

420*452, 

458*113, 

497*384® 

538.077® 

1547 

X580 * 1 72 ® 

622*981 $ 

667*059, 

713*544, 

761 *968, 

812*106® 

863*919, 

1548 

X9 1 7 e 374 , 

972*465$ 

1029* 105® 1087*340, 2 147*173 

,1208.581 #1271 *583# 

1549 

X I 336 * 203 

♦1402*472 

, 1470*266 

,1539*601 

,161 0.492 

,1683*113 

,1757.460, 

1550 

X I 833 »4 1 8 

♦1910*861 

,1989*757) 




1551 

DATA ((ARRAY2CI), 

I = 1,90) 

= 




1552 

X6 * 259 ♦ 

6*737, 

7*199, 

7*678, 

8,176, 

8*662, 

9*091 « 

1553 

X9 © 440 , 

9*666, 

9*822, 

9*975, 

10*181 , 

10*431 , 

10*710# 

2 554 

X 1 0 # 998 ® 

1 1 *276, 

1 1 *541 * 

1 1 *785, 

12*009, 

12*204, 

12.373, 

1555 

X12«51 1 * 

12*617, 

12*690, 

12*729, 

12.730, 

12.697® 

12*631 , 

1556 

X 12*543 ® 

0*0, 

0*0, 

0*0, 

0.0, 

0*0® 

0*0# 

1557 

X0 © 0 ♦ 

0*0, 

0*0, 

0*0, 

0*0, 

0*0, 

0*0, 

1558 

xo©o® 

0.0 , 

0*0, 





1559 

X5 ©318® 

6*788, 

7*247® 

7*733, 

8*247, 

8*751 ® 

9.194, 

1560 

X9 « 545 , 

9*776, 

9*929, 

10*083, 

10*296, 

10*564, 

10.855® 

1561 

XI 1 .153, 

1 1 *443, 

11*721 « 

11*976, 

12.207® 

12*410® 

12.583® 

1562 

XI 2 #726 « 

12*833, 

12*906, 

12*940, 

12*935, 

12.889, 

12.807, 

1563 

X 1 2 ©703 , 

0*0, 

0*0, 

0*0, 

0*0, 

0*0® 

0*0# 

1564 

X0*0® 

0*0, 

0*0, 

0,0, 

0*0® 

0*0® 

0*0# 

1565 

X0«0® 

0*0, 

0*0) 





1566 

DATA ( ( ARRAY2 ( I ) « 

91 ,180)=: 




1567 

X6 ® 376 ® 

6*837, 

7*294, 

7*789, 

8*320, 

8*846 , 

9*303, 

1568 

X9 .652 * 

9 * 894 , 

10*038, 

10*195, 

10*423, 

10.703, 

1 1 .008# 

1569 

XI 1 *321 * 

1 1 *627, 

1 1 *913, 

12*179® 

12*419, 

12.629, 

12.808, 

1570 

X 1 2.955 * 

13*064, 

13*135, 

13*165, 

13*151 , 

13*091 ® 

12.992, 

1571 

XI 2 *869 , 

0*0* 

0*0, 

0*0® 

0*0, 

0*0, 

0.0, 

1572 

X0.0® 

0*0, 

0*0, 

0*0, 

0*0, 

CO, 

o.o. 

1573 

X0.0® 

0*0* 

0*0, 





1574 

X6. 41 4 , 

6 * 869 , 

7*329, 

7*839, 

8*396, 

8.947, 

9.425, 

1575 

X9 * 782 ® 

10*016, 

10*153, 

10*320, 

10*558, 

10.859, 

11 .184, 

2576 

XI 1 *513* 

1 1 *833, 

12*134, 

12.413® 

12*663, 

12.882, 

13*069, 

1577 

X 1 3*21 9 , 

13*331 , 

13*401 , 

13.425, 

13*398® 

13*320® 

13.199® 

1578 

X 1 3*056 ♦ 

12*918, 

0*0, 

0*0® 

0*0, 

0*0, 

0.0, 

1579 

X0.0, 

0*0, 

0*0, 

0*0, 

0*0® 

0*0, 

0.0, 

1580 

xo*o. 

0 * 0 9 

o 

« 

o 





1581 

DATA ( f ARRAY2 ( 1 ), 

1= 181,270)= 




1582 

X6 *4 1 8 1 

6*876, 

7*346, 

7*881 , 

8*473® 

9,052, 

9*549# 

1583 

X9.918® 

10*146, 

10*272, 

10,445, 

10.712, 

U .033, 

1 1 *381 , 

1584 

XI 1 *729* 

12*067, 

12*387, 

12*677, 

12*940, 

13,169® 

13*364, 

1585 

XI 3*520 ® 

13*634, 

13*701 , 

13*716, 

13*673, 

13*572, 

13*424 « 

1586 

XI 3*259 * 

13*111, 

0*0, 

0*0, 

0*0, 

0*0, 

o.o# 

1587 

XO.O® 

0*0, 

0*0, 

0*0, 

0*0® 

0*0® 

o.o. 

1588 

xo*o® 

0*0, 

0*0, 





1589 

X6 ® 421 , 

6*881 , 

7*362, 

7*927, 

8*554, 

9,161 , 

9.679, 

1590 

X 3 0®055 # 

10*272, 

10*389, 

10.573, 

10.861 , 

21*209, 

1 2 *581 # 

1592 

XI 1 *948* 

12*304, 

12*638, 

12.946, 

13*219, 

23*459® 

13.661 « 

2 592 

X 1 3 *822 9 

13*937, 

14*000, 

14*005® 

13*943, 

13,815, 

13*640, 

1593 

X 1 3*457 ♦ 

13*304, 

13*195, 

0*0, 

0*0, 

0*0® 

0.0, 

1594 

XO.O® 

0*0, 

0*0, 

0*0® 

0*0, 

0*0, 

o.o# 

1595 

XO.O® 

0*0, 

0*0) 





1596 
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DATA ( ( ARRAY2 ( I ) ® 

1= 271,: 

360 ) = 




1597 

X6#419® 

6 9 082 « 

7*379, 

7® 975 , 

8 * 638 ® 

9® 273, 

9 ® 8! 4 « 

1598 

XI 0*193, 

10* 393 <) 

1 0 * 500 9 

10*705, 

11*017® 

1 1 * 389 ® 

1 1 *783, 

1599 

X12#173, 

12*547, 

12*897, 

13*217® 

13*506® 

13*754, 

13*964® 

1600 

XI 4 # 1 30 ® 

1 4 © 246 « 

14*303, 

14*295, 

14*210® 

14*052* 

13*849® 

1601 

X13#653, 

1 3® 50 1 « 

13*401 ® 

0*0, 

0*0® 

0*0, 

0*0, 

1602 

X0*0® 

0 « 0 « 

0*0, 

0*0, 

0*0, 

0*0, 

0*0, 

1603 

X0 » 0 « 

0*0® 

0*0, 





1604 

X6 #413, 

6 9080 ® 

7*395, 

8*027® 

8*724® 

9*391, 

9*950® 

1605 

XI 0 ®330 ® 

1 0 ® 500 « 

10*609® 

10*836® 

1 1 *180® 

11*577® 

1 1 *991 « 

1606 

X 1 2 #402 • 

1 2 ® 794 9 

13*160, 

13*495® 

13*795, 

14*056, 

14*273, 

1607 

XI 4 ® 443 ® 

1 4 *558^ 

14*609, 

14*584, 

14*472® 

14*280 * 

14*051 « 

1608 

>C! 3*849 « 

13*7049 

13*616, 

0*0® 

0*0, 

0*0® 

0*0, 

1609 

XO»Oi 

0 © 0 9 

0*0, 

0*0, 

0*0® 

0*0, 

0*0® 

1610 

X0®0® 

0*0® 

0*0) 





161 1 

DATA ( { ARRAY2 ( I ) » 

1= 361,450)- 




1612 

X6®405® 

69878® 

7*414* 

8*085® 

8*816® 

9*513, 

10*090* 

1613 

X 1 0 ®469 ® 

1 0 © 609 1 

10*719® 

10*968® 

I 1 *338, 

11 #762® 

12*200, 

1614 

XI 2*632 « 

13©043® 

13*424® 

13*773, 

14*086® 

14*356® 

1 4*580 * 

1615 

XI 4 #754, 

14*869,14*91 1 ® 

14*867, 

14*723® 

14*496, 

14*247® 

1616 

XI 4 * 045 ® 

13*91 1 , 

13*837® 

13*804, 

0*0® 

0*0, 

0*0, 

1617 

X0#0® 

0#0® 

0*0, 

0*0® 

0*0, 

0*0, 

0*0, 

1618 

xo®o. 

0*0® 

0*0* 





1619 

X6® 398® 

6*876® 

7*437* 

8*146, 

8*913® 

9*636® 

10*230® 

1620 

X 1 0 ©602 ® 

10*717, 

10*825® 

11*102, 

11*502, 

11*951 « 

12*413® 

1621 

XI 2*863 « 

13*290 $ 

13*690, 

14*052® 

14*376® 

14*657® 

14*888® 

1622 

X! 5 ©066 ® 

15*178, 

15*210, 

15*143, 

14*964® 

14*700® 

14*437® 

1623 

XI 4 *242 * 

14*123, 

14*064® 

14*045® 

14*051 , 

0*0® 

0*0, 

1624 

X0#0* 

0*0® 

o*o. 

* 

O 

« 

o 

0 a 0 , 

0*0® 

0*0, 

1625 

xo*o. 

0*0® 

0*0 ) 





1626 

DATA ( ( ARRAY2 ( I ) , 

1= 451 ,540 ) 9 




1627 

X6 * 385, 

6*871 , 

7*462, 

8*211 ® 

9*014 , 

9*763, 

10*372® 

1628 

X10©736, 

10*818, 

10*931, 

11 #242® 

11*671 ® 

12*146® 

12*627® 

1629 

XI 3*097 « 

13*543* 

13*959, 

14*336, 

14*673® 

14*963® 

15*202® 

1630 

X 1 5*383 , 

15*491 « 

15*51 1 « 

15*417, 

15*198, 

14*897® 

14,628* 

1631 

X l 4 # 446 $ 

14*345, 

14*301 , 

14*296, 

14*315, 

14*349® 

0*0® 

1632 

X0®0® 

0*0® 

0*0, 

o®o. 

0*0, 

0*0® 

0*0® 

1633 

X0*0® 

0*0® 

0*0, 





1634 

X6* 363 ® 

6 * 862 * 

7*487® 

8*276, 

9*117® 

9*892® 

10*512® 

1635 

X1CW865, 

10*910, 

11*039, 

1 1 *382® 

1 1 *B41 ® 

12*339® 

1 2 #844 ® 

1636 

XI 3 • 334 * 

13*799, 

14*230, 

14*622, 

14*971 ® 

15*271 ® 

15*517, 

1637 

XI 5 #700 ® 

15,805, 

15*809® 

15*683® 

15*417® 

15*087® 

14*819, 

1638 

XI 4 #654 « 

14*572, 

14*546, 

14* 556 , 

14*587, 

14*631 ® 

14*682® 

1639 

XC.O® 

0*0, 

0*0® 

0*0® 

0*0® 

0*0® 

0*0, 

1640 

xo*o® 

0*0® 

0*0) 





1641 

DATA (CARRAY2U)® 

1= 541 «. 

630 ) * 




1642 

X6 « 342 ® 

6*854, 

7*516, 

8*347, 

9*219® 

10*019® 

10*652® 

1643 

XI 0 *984 9 

10*995, 

1 1 * 145® 

11*520, 

12*007® 

12*532® 

13*058® 

1644 

XI 3 ©566 9 

14*049, 

14*496, 

14*901, 

15*263, 

15*573® 

15*825, 

1645 

X1S*010, 

16*109, 

16*096, 

15*934, 

15*620® 

15*266® 

15*088, 

1646 

X I 4*862 ® 

14*800, 

14*790® 

14*814® 

14*857, 

14*912® 

14*972, 

1647 

X15«034 ® 

0 * 0 , 

0 * 0 ® 

o»o« 

0 * 0 , 

0 * 0 ® 

0 * 0 , 

1648 

X0*0, 

0 , 0 , 

0 * 0 , 





1649 

X6 « 322 ® 

6*848, 

7*548® 

8*419, 

9*322® 

10*143, 

10*788® 

1650 

XI 1 *095® 

1 1 # 073 , 

1 1 *250, 

1 1 *658® 

12*172, 

12*721 ® 

13*266® 

1651 

X I 3*795 « 

14*293, 

14*755® 

15*174® 

15*547® 

15*867® 

16*126® 

1652 

X16*312, 

16*405, 

16*372® 

16*170, 

15*807, 

15*439® 

15*195® 

1653 

X15©070® 

15*027, 

15*034® 

15*071 , 

15* 126® 

15*191 ® 

15*261 ® 

1654 

XI 5«330 « 

15*397, 

0 * 0 , 

o 

9 

o 

0 * 0 ® 

0 * 0 ® 

0 * 0 , 

1655 

X0®0® 

o © o ® 

0*0 ) 





1656 


79 



data C t ARRAY2< I ) 9 

1= 631 * 

720)=: 




1657 

X6.301 * 

6.845, 

7.584, 

8.492, 

9.424, 

10.268, 

10,918, 

1658 

X 1 1 • 1 99 * 

1 1.145, 

1 1 .351 , 

1 1 .795, 

12.336, 

12,905* 

13,472, 

1659 

XI4.017, 

14.53T , 

15.008, 

15.440, 

15.826, 

16.155, 

16.420, 

1660 

X 1 6 *607 « 

16.693, 

16.637, 

16.390, 

15.981 , 

15.607, 

15.381 « 

1661 

X15.27S, 

15.253, 

15.276, 

15.326, 

15.393, 

15.468, 

15.546, 

1662 

X 1 5 • 624 * 

15.698, 

15.768, 

0.0, 

0.0, 

o 

. 

o 

0,0, 

1663 

X0.0, 

0.0, 

0.0, 





1664 

X6.291 , 

6.850, 

7.626, 

8.567, 

9.525, 

10.390, 

1 1 .046* 

1665 

XI 1 *295 « 

11.215, 

1 1 .448, 

1 1 .927, 

22.492, 

13.082, 

13.668, 

1666 

X 1 4 • 229 . 

14.760, 

15.249, 

1 5 . 695 , 

16.091 , 

16,429, 

16.699, 

1667 

X 1 6 • 888 * 

16.964, 

16.886, 

16.592, 

16.141 , 

15.768, 

15.562, 

1668 

X 1 5 • 480 « 

15.472, 

15.509, 

15.571 * 

15.648, 

15.732, 

15,819* 

1669 

XI 5*905 * 

15.985, 

16.061 * 

16.130, 

0,0, 

* 

o 

• 

o 

0,0* 

1670 

XO.O, 

0*0, 

0.0 ) 





1671 

DATA C(ARRAY2(I>* 

I = 721, 

810) = 




1672 

X6* 292 * 

6 *864 , 

7.673, 

8.645, 

9.629, 

10.51 1 , 

11.173* 

1673 

XI 1 .385, 

1 1 .288, 

1 1 .550, 

12.059, 

12.646, 

13.255, 

13,857, 

1674 

X 1 4 .435 « 

14.979, 

15.483, 

15.942, 

16.349, 

16*694, 

16,969* 

1675 

X 1 7 • 1 58 « 

17.227, 

17.122, 

1 6 • 779 , 

16.292, 

15.926, 

15,741 , 

1676 

X I 5.678 , 

15.686, 

15.735, 

15.809, 

15.896, 

15.990, 

16,085* 

2 677 

X16.178* 

16.266, 

16.348, 

16.422, 

16.487, 

16.544, 

0,0* 

1678 

xo.o* 

0.0, 

0*0, 





1679 

X6.304* 

6.887, 

7.726, 

8.726* 

9.733* 

10.633, 

11,300* 

1680 

XI 1 .475, 

11.366, 

1 1 .655, 

12.190, 

12.797, 

13.424, 

14,041 * 

1681 

X 1 4 • 636 , 

15.194, 

1 5.712, 

16. 181 , 

16.597, 

16.950, 

17.232, 

1682 

X17.421 , 

17.481 , 

17.349, 

16.954, 

16.437, 

16.083, 

15,919, 

1683 

X 1 5.873 , 

15.896, 

15.959, 

16.044, 

16.141 , 

16.243, 

2 6,346* 

2 684 

X16.445, 

16.540, 

16.628, 

16.707, 

16.781 , 

16.838, 

26.889, 

1685 

XO.O, 

0.0, 

0.0) 





1686 

DATA ( ( ARRA Y2 < ! ) , 

1= 811, 

900) = 




1687 

X6.320, 

6.914, 

7.783, 

8.812, 

9.840, 

10.759, 

1 1 .427* 

1688 

XI 1 .561 , 

1 1 .445, 

1 1.765, 

12.326, 

12.951 , 

13.597, 

1 4 ,232 , 

1689 

XI 4.84 1 t 

15.414, 

15.943, 

16.425, 

16.849, 

17.212, 

17.500* 

1690 

XI 7 .689 , 

17.739, 

17.575, 

17.125, 

16.583, 

16.246, 

16.103* 

1691 

XI 6.076, 

16.114, 

16.189, 

16.285, 

16.392. 

1 6.502 , 

16,613* 

1692 

X16.719, 

16.820, 

16.914, 

16.999, 

17.075, 

17.143, 

17,194* 

1693 

X27.236, 

0.0, 

o.o, 





1694 

X6 . 336 , 

6.943, 

7.844, 

8.901 , 

9.951 * 

10.887, 

11 .559* 

1695 

XI 1 .646, 

1 1 .526, 

1 1 • 879 , 

12.464, 

13.111, 

13.775, 

14,427* 

1696 

XI 5.051 ♦ 

15.639, 

16.182, 

16.675, 

17.112, 

17.485, 

17,776* 

1697 

XI 7.964, 

18.002, 

17.804, 

17.293, 

16.733, 

16.417, 

16,296* 

1698 

X 1 6.287 , 

16.339, 

16.427, 

16.535, 

16.651 , 

16.770, 

16,889, 

1699 

X 17.003, 

17.1 1 1 , 

17.211, 

17.302, 

17.383, 

17.453, 

17.510* 

1700 

XI 7.558 , 

17.591 , 

17.610) 





1701 

DATA ( { ARRA Y2 ( I ) , 

1= 901, 

990 ) = 




1702 

X6.364, 

6,982, 

7.910, 

8.994* 

1 0 . 066 * 

11.020, 

11 .694* 

1703 

XI 1 .732, 

11*610, 

1 1 .996, 

12.599* 

13*272, 

13.954, 

14.622* 

1704 

XI 5.261 , 

15*864 , 

16.421 , 

16.925* 

17.374, 

17.754, 

18.050* 

1705 

XI 8.237, 

18.264, 

18.028, 

17.454* 

16*884, 

16.590, 

16,490, 

1706 

X 1 6*498 , 

16.565, 

16.665, 

16.783* 

16.909, 

17.036, 

17.163* 

1707 

XI 7.285, 

17.400, 

17.507, 

17.604, 

17.690. 

17.765, 

17.827* 

1708 

X 1 7. 878 , 

17.921 , 

17.938, 





1709 

X6.396, 

7.024, 

7.982, 

9.092, 

10.187, 

11,160, 

1 1 ,835* 

1710 

XI 1 .820, ‘ 

1 1 .702, 

12.119, 

12.744, 

13*442, 

14.140* 

14,825* 

171 l 

X15.480, 

16.098, 

16.669, 

17.187, 

17.646, 

18.034, 

18.335, 

1712 

XI 8.523 , 

18.536, 

18*255, 

1 7.615, 

17.044, 

16.775, 

16.696, 

1713 

XI 6.72 1 , 

16.803, 

16.915, 

17.044, 

17.180, 

17.317, 

17.452* 

1714 

X17.582, 

17.703, 

17.817, 

17.920, 

18.01 1 , 

O 

. 

GO 

18.158* 

ITT 5 

X18.213, 

18.253, 

18.280) 





1716 



DATA (CARRAY2M), 

1= 991 ,1080)= 




1717 

X6.428, 

7*070* 

8*058 « 

9*196, 

1 0 #31 5 , 

11*307, 

1 1 .982, 

1718 

XI 1 *906* 

1 1*800, 

12*252, 

12*901 , 

13.620, 

14.337, 

15.04! , 

1719 

XI 5 « 71 3 , 

16*346, 

16*931 » 

17*462, 

17.933, 

18*330, 

18*639, 

1720 

XI 8 .825, 

18*822, 

13*489, 

17*780, 

17.216, 

16*973, 

16*917, 

1721 

X16.960, 

17*057, 

17.183, 

17*323, 

17.469, 

17,616, 

17*760, 

1722 

XI 7 .897 9 

18*026, 

18.146, 

18*255, 

18.353, 

18.438, 

18.511 t 

1723 

XI 8 , 569 , 

1.8*614, 

18.641 , 





1724 

X6 *460 , 

7.1 18, 

8.140, 

9*307, 

10.453, 

1 1 .464, 

12*136, 

1725 

XI 1 ,990, 

1 1 *907, 

12.391 , 

13*068, 

13.804, 

14.547, 

15*269, 

1726 

XI 5 • 960 * 

16*609, 

17.209, 

17.754, 

18.238, 

18.646, 

18.961 , 

1727 

X 1 9 . t 46 , 

19*123, 

18.728, 

17.949, 

17.401 , 

17.188, 

17*156, 

1728 

X17*217t 

17*330, 

17.469* 

17*620, 

17.778, 

17*935, 

18.08?, 

172$ 

X 1 8*233 » 

18*370, 

18.497, 

18*613, 

18.717, 

18*809, 

18.887, 

1730 

X 1 8 * 95 1 , 

18*999, 

19.030 > 





1731 

DATA C ( 

ARRAY2C I ) , 

1= 1081, 

1170) = 




1732 

X6 . 494 , 

7*171 , 

8.229, 

9*426, 

10.599, 

11*630, 

12*297, 

1733 

X! 2.072 , 

12.020, 

12.541 , 

13*247, 

14.004, 

14.772, 

15.513, 

1734 

XI 6*222, 

16.889, 

17.505, 

18.066, 

18.562, 

18.982, 

19.304, 

1735 

X19.487 , 

19.442, 

18.971 , 

18.125, 

17.602, 

17.420, 

17.412, 

1736 

X 1 7 • 494 * 

17.622, 

17.775, 

17*939, 

18*108, 

18.276, 

18.438, 

1737 

XI 8*593 * 

18.739, 

18.874, 

18*997, 

19. 108, 

19.206, 

19.290, 

1738 

X 1 9 • 359 « 

19.412, 

1 9.447 , 





173^ 

X6.528, 

7*227, 

8 . 325 , 

9*554, 

10*757, 

11.809, 

12.465, 

1740 

X12.155* 

12.143, 

12.705, 

13.439, 

14.220, 

15.005, 

15.775, 

1741 

XI 6*503 9 

17.188, 

17.822, 

18.398, 

18.910, 

19.341 , 

19.670, 

1742 

XI 9 *851 » 

19.779, 

19.219, 

18.312, 

17*822* 

17*674, 

17.691 , 

1743 

X 1 7 *792 t 

17.937, 

18.104, 

18.282, 

18.463, 

18*641 ♦ 

18.814, 

1744 

X I 8*979 # 

19*134, 

19.278, 

19.409, 

19.527, 

19*632, 

19.723, 

1745 

XI 9*798 , 

19.855, 

19.895) 





1746 

DATA (< 

ARRAY2 ( ! ) , 

1= 1171, 

1260) = 




1747 

X6 *540 , 

7*281 , 

8.428 , 

9.696, 

10.931 ♦ 

12*005, 

12.641 ♦ 

1748 

XI 2*230 * 

12.280, 

12.889, 

13.657, 

14.467, 

15*278, 

16.069, 

1749 

Xl 6*824 , 

17.531 , 

18.187, 

18.781 , 

19.308, 

19*753* 

20.090, 

1750 

X20 *267 $ 

20*159, 

19.479, 

18.522, 

18.079, 

17.969, 

18.015, 

1751 

X18.138, 

18*302, 

18.486, 

18.680, 

18.875, 

19*066, 

19.251 ♦ 

1752 

XI 9 *427 « 

19*593, 

19.746, 

19.888, 

20*015, 

20*127, 

20.224, 

1753 

X20.305, 

20*370, 

20.414, 





1754 

X6 *545* 

7*337, 

8.537, 

9.844, 

11*111, 

12*207, 

12*811 , 

1755 

XI 2 *301 * 

12*425, 

13.079, 

13.882, 

14*724, 

15*561 , 

16*374, 

1756 

X 1 7 * 1 54 • 

17*886, 

18.564, 

19.179, 

19.721 , 

20*179, 

20.524, 

1757 

X20 *698 « 

20.545, 

19.725, 

18.743, 

18.352, 

18*280, 

18.354, 

1758 

X18.500, 

18.683, 

18.884, 

19.093, 

19.303, 

19*508, 

19.706, 

1759 

XI 9*894* 

20*071 , 

20.234, 

20.385, 

20.522, 

20*644, 

20.749, 

1760 

X20 *836 « 

20.906, 

20.956) 





1761 

DATA C ( 

ARRAY2C I > , 

1= 1261, 

1 350 ) = 




1762 

X6 • 552 , 

7*398, 

8.647, 

9.994* 

1 1 .292, 

12*411 , 

12.971 , 

1763 

XI 2 • 376 * 

12.575, 

13.275, 

14. M2, 

14.982, 

15*846, 

1 6 .684 , 

1764 

XI 7 *484 * 

18.241 , 

18.941 , 

19.578, 

20*138, 

20*609, 

20.961 , 

1765 

X2 1 *127* 

20.926, 

19.953, 

18*973, 

18*635, 

18.599, 

18.700, 

1766 

X 1 8 * 868 1 

19.070, 

19.288, 

19.512, 

19*736, 

19*954, 

20.165, 

1767 

X20 *365 * 

20*554, 

20.728, 

20.888, 

21 *034, 

21 .165, 

21 .279, 

1768 

X21 *375* 

21 .450, 

21 .505, 





1769 

X6.551 « 

7.462, 

8.762, 

10.149, 

1 1 *479, 

12*618, 

13.116, 

1770 

XI 2*450 , 

12.730, 

13.478, 

14.347, 

15*248, 

16*141 , 

17.005, 

1771 

XI 7 *830* 

18.607, 

19.330, 

19.989, 

20*570, 

21 *057, 

21 .417, 

1772 

X21 *573* 

21 .312, 

20.168, 

19.218, 

18*936, 

18*937, 

19.065, 

1773 

X 1 9*255 , 

19.477, 

19.712, 

19.951 , 

20*189, 

20*421 , 

20.645, 

1774 

X20.857, 

2 1 • 057 , 

21.244, 

21 .416, 

21 .570, 

21*709, 

21 .831 , 

1775 

X21 *936 * 

22.020, 

22.080) 





1776 


81 



DATA ( < ARPAYSf I ) * 

1= 1351 * 

1440)« 




1 777 

X6*542® 

7 #527 « 

8®878 # 

10*303® 

11*666® 

12*821 © 

13*234® 

1778 

X I 2 ® 524 © 

12® 888 ® 

13*682® 

14*586® 

15*518* 

16*437® 

17*329® 

1779 

X18* 178® 

1 8® 977 * 

19*721 * 

20*399® 

21 *001 * 

21 #504# 

21 ©873 ® 

1780 

X22.021 « 

21 *684 * 

20*368® 

19*472# 

19*243 * 

19*280® 

19*435® 

1781 

X 1 9 ©647 9 

1 9® 887* 

20# 140* 

20*396® 

20*649# 

20*894# 

21 #130® 

1782 

X21 *354® 

21*565* 

21*762# 

21*945® 

22*111 ® 

22.258® 

22*388® 

1783 

X22.499® 

22 ® 590 9 

22*658® 





1784 

X6.537* 

7*593* 

8*992® 

10*452® 

11 *843® 

13*015# 

13*326# 

1785 

XI 2 *600 « 

13# 042 * 

13*880® 

14*817® 

35*774® 

16*721 ® 

17*637® 

1786 

X 18 * 5 12 * 

19*333* 

20*097# 

20*794® 

21 #412® 

21*932® 

22*308® 

1787 

X22 *447 * 

22*028# 

20*553* 

19*724# 

19*544# 

19*613® 

1 9®792 ® 

1788 

X20 * 025 # 

20 #283 * 

20*552® 

20*822® 

21 #089® 

21*348® 

21*597# 

1789 

X21 *833 9 

22 # 055 9 

22*262® 

22 #453® 

22 #629® 

22*786® 

22*925® 

1790 

X23.042® 

23*138* 

23*213) 





1791 

DATA ( ( ARRAY2 ( I ) ® 

Is 1441® 

1530 >* 




1792 

X6 #535* 

7.661 . 

9*103* 

10*596® 

12*019® 

13*197# 

13*390® 

1793 

XI 2 #679* 

13.195, 

14*072® 

15*038® 

16*023® 

16*994® 

17*935® 

1794 

XI 8*834 « 

19,678, 

20*461 ® 

21*178* 

21*813# 

22*345® 

22*731 ® 

1795 

X22.857# 

22,344, 

20*732® 

19*975* 

19*841 ® 

19*940* 

20*140® 

1796 

X20.392* 

20.668, 

20*952® 

21*237# 

21*517® 

21 *789# 

22*050® 

1797 

X22*298® 

22.531 , 

22*748# 

22*949* 

23*132® 

23*298® 

23*445® 

1798 

X23.571 * 

23,675, 

23*753® 





1799 

X6 * 529 9 

7.727. 

9*212® 

10*736# 

12*183# 

13*376® 

13*419® 

1800 

XI 2 #758* 

13.347, 

14*260® 

15*257® 

16*269# 

17*264® 

18*228® 

1801 

XI 9® 1 48 * 

20.017, 

20*820® 

21*554# 

22*206® 

22*751 « 

23*145® 

1802 

X23.258® 

22.634, 

20*909# 

20*227® 

20*137® 

20*263# 

20*486® 

1803 

X20 #756 ® 

21.048, 

21*348® 

21 *646# 

21 #940# 

22*224® 

22*497® 

1804 

X22.756® 

23.000, 

23*228® 

23*439# 

23*632# 

23*805® 

23*959® 

1805 

X24.093# 

24.203, 

24*287) 





1806 

DATA C<ARRAy2(I>® 

I* 1 53t * 1620 1 * 




1807 

X6*530® 

7 #792 • 

9*315® 

10# 868 9 

12© 338 ♦ 

13*533® 

13*428© 

1808 

XI 2*838 * 

13*490® 

14*437* 

15*462® 

16*498# 

17*517® 

18*502® 

1809 

XI 9®444 * 

20*333# 

21*155® 

21*907® 

22*575® 

23*132® 

23*531 © 

1810 

X23.632* 

22 #888® 

21*081 ® 

20*469® 

20*418® 

20*571 * 

20*813® 

1811 

X21 #099* 

21*406* 

2 1 ® 720 ® 

22*032® 

22*338® 

22*634® 

22*917* 

1812 

X23® 1 87 * 

23*441 * 

23*679* 

23*899® 

24*100# 

24*282® 

24*443® 

1813 

X24 #584 * 

24*700® 

24*790® 





1814 

X6.535® 

7*856* 

9*412® 

10*995* 

12*490® 

13*681 # 

13*422® 

1815 

XI 2*918 * 

1 3®626 * 

14*604® 

15*656® 

16*715# 

17*754® 

18*760® 

1816 

XI9.721 * 

20*629® 

21*470® 

22*239® 

22*921 ® 

23*491 ® 

23*895® 

1817 

X23.981 * 

23# 106* 

21*248® 

20*703* 

20*686® 

20*861 « 

21 *122® 

1818 

X21 #424* 

21*745* 

22® 072 « 

22*397# 

22*713# 

23*021 ® 

23*315® 

1 819 

X23 #593* 

23*857® 

24.104* 

24.333* 

24*542® 

24*731 « 

24*899* 

1820 

X25 *046 ® 

25*169* 

25*264) 





1821 

DATA ( ( ARRAY2 ( 1 ) * 

1« 1621® 

1710)* 




1822 

X6 » 529 * 

7*916* 

9*507® 

M*1 15® 

12*629# 

13*819# 

13*370® 

1823 

X 1 2 e 994 * 

13*760# 

14.774* 

15*851 ® 

16*934® 

17*995® 

19*022® 

1824 

X20#003* 

20*931 * 

21 #791 ® 

22*575* 

23*275® 

23*856® 

24*264# 

1825 

X24 # 33 1 # 

23*294® 

21*419® 

20*943® 

20*961 • 

21 *161 ® 

21 *441 * 

1826 

X21 #758* 

22*094* 

22*435® 

22*772® 

23*101 * 

23*419® 

23**724® 

1827 

X24 ®01 3# 

24*286# 

24*542® 

24*779® 

24*997® 

25*195® 

25*370® 

1828 

X25®524* 

25*653® 

25*753# 





1829 

x.ooo® 

#000* 

#000® 

*000* 

12*752# 

13*932® 

13*310® 

1830 

XI3.065® 

13*885* 

14*928® 

16*027# 

17*132® 

18*215® 

19*260# 

1831 

X20 #259 * 

21 *205® 

22*080® 

22*880® 

23*592# 

24*187® 

24*598* 

1832 

X24.644® 

23® 438 * 

21*578® 

21*164* 

21*214# 

21*435® 

21 *732® 

1833 

X22 « 064 * 

22*413® 

22*766® 

23*114# 

23*454# 

23*782® 

24*096# 

1834 

X24.394® 

24*676® 

24*941 • 

25*187* 

25*412® 

25*617® 

25*800# 

1835 

X25 #960 # 

26*095® 

26*199) 





1836 


82 



DATA (<ARRAY2(I)» 

1= 1711© 

1800) = 




1837 

XaOOO® 

0 e 0 © 

» ooo * 

* 000 ® 

*000® 

14*023© 

13*252® 

1838 

X13® 132© 

13*999* 

15® 068 « 

16*188© 

17*31 3® 

18*413© 

19*476® 

1839 

X20®492« 

21 *451 * 

22*342 © 

23*158© 

23*884® 

24*407© 

24*903® 

1840 

X24®925® 

23 ®547 <$ 

21® 728® 

2 1 * 368 © 

21 ® 445 ® 

21 ©685* 

21 *997© 

1841 

X22 * 343 9 

22*704* 

23*068 © 

23*426® 

23*775® 

24 * U 2 © 

24*435® 

1842 

X24 *742 9 

25® 033 * 

25 » 306 © 

25*558® 

25*791 « 

26*002® 

26*194® 

1843 

X26«36 1 « 

26*499* 

26*607® 





1844 

X0®0® 

0*0© 

0*0© 

© 000 ® 

*000 9 

*000® 

13*1 50 ® 

1845 

X13®18®14 

*38*15*18 

® 16*32*17 

*47*18*612*1 9*693 « 



1846 

X2j0 ©71 ♦ 

21 ©699* 

22*604® 

23*437 « 

24*177® 

24*790* 

25*205© 

1847 

X25 • 1 99 « 

23*61 4 * 

21 ©876® 

21*574® 

21 ©681 ® 

21*940® 

22*268® 

1848 

X22 *629 « 

23*002 © 

23*376© 

23 * 744 ® 

24*104® 

24*451 ® 

24*783® 

1849 

X25«100® 

25*401 « 

25*681 * 

25*941 ® 

26*180© 

26*400® 

26*597® 

1850 

X26 *770 • 

26*914© 

27*025) 





1851 

DATA C<ARRAY3(l)* 

1= 1 ® 90 ) 

s 




1852 

X6® 475® 

8*1 79 © 

10*001 * 

11 *835® 

13*605® 

15*299® 

16*981 ® 

1853 

XI 8 ® 722 ® 

20*647 © 

22*744* 

24*879® 

26*885® 

28*708® 

30*365® 

1854 

X31 *899 « 

33® 343 © 

34*725® 

36*068® 

37*395® 

38*719® 

40*063® 

1855 

X4 1 ©443 © 

42*883© 

44*409® 

46*052© 

47*850® 

49*839* 

52*056® 

1856 

X54 #503 * 

0*0© 

0*0© 

0*0® 

0*0® 

0*0® 

0*0® 

1857 

X0*0® 

0*0© 

0*0© 

0*0® 

0*0® 

0*0® 

0*0® 

1858 

X0*0t 

0*0® 

0*0® 





1859 

X6©930® 

8® 774 « 

10*739® 

1 2©700 © 

14*569® 

16*343, 

18*102© 

1860 

X 1 9 * 94 3 © 

21 *979 © 

24*223© 

26*500© 

28.618© 

30*525® 

32*252® 

1861 

X33 *846 * 

35*346© 

36*780® 

38*177* 

39*555© 

40*937® 

42*340® 

1862 

X43 ©785 * 

45 ©298© 

46*912* 

48*660® 

50*587® 

52*745® 

55*169® 

1863 

X57 « 8*54 « 

0*0® 

0*0© 

0*0® 

0*0® 

0*0® 

0*0® 

1864 

X0*0* 

0©0® 

0*0® 

0*0® 

0*0® 

0*0® 

0*0® 

1865 

X0*0® 

0*0® 

0®0) 





1866 

DATA ( < ARRAY3 ( I ) 4 

1= 9! © 1 80 ) * 




1867 

X7 » 462 * 

9*470* 

11*602* 

13*706® 

15*684® 

17*548® 

19*395® 

1868 

X21 ©352® 

23*517® 

25*938® 

28*380® 

30*622® 

32*624® 

34*429® 

1869 

X36 a 090 « 

37*651 ® 

39*147© 

40 * 604 ® 

42*042® 

43*487® 

44*957® 

1870 

X46®477® 

48*076* 

49*791 • 

51 *664® 

53*750® 

56*111® 

58*784® 

1871 

X61 *785* 

0*0* 

0*0* 

0*0® 

0*0® 

0*0® 

.0*0® 

1872 

X0*0* 

0*0* 

0©0® 

0*0® 

0*0® 

0*0® 

0*0® 

1873 

X0«0® 

0*0© 

0©0® 





1874 

X7 *838 © 

9*961 © 

12*203® 

14*384® 

16*401 © 

18*286® 

20*158® 

1875 

X22 © 1 60 9 

24*412® 

26*954® 

29*491 © 

31 *783© 

33*808® 

35*625® 

1876 

X37©294 * 

38*864® 

40*368® 

41 *832® 

43*284® 

44*741® 

46*232® 

1877 

X47.778® 

49*415® 

51*183® 

53*135* 

55*338© 

57*858® 

60*741 ® 

1878 

X63 ©943 ® 

67*322® 

0*0® 

0*0® 

0*0© 

0*0® 

0*0® 

1879 

X0®0® 

0*0® 

0*0© 

.0*0© 

0®0® 

0*0® 

0*0® 

1880 

X0*0® 

0 ©0* 

0*0) 





1881 

DATA ( ( ARRAY3 ( 1 ) ® 

1= 181 ©270 > = 




1882 

X7©839 © 

9*961 ® 

12*184® 

14*305* 

16*229® 

18*016® 

19*800© 

1883 

X21 ©737 © 

23*963® 

26*496® 

28*979® 

31 *177© 

33*097® 

34*814® 

1884 

X36 ® 39 1 © 

37*872® 

39*292® 

40*680® 

42*054® 

43*443® 

44*864® 

1885 

X46 « 351 « 

47*933® 

49*659© 

51*587® 

53*800® 

56*370® 

59*330® 

1886 

X62 *594 © 

65*974® 

0*0® 

0*0® 

0*0® 

0*0® 

0*0® 

1887 

X0*0® 

0*0® 

0*0® 

0*0® 

0*0® 

0*0® 

0*0® 

1888 

xo*o® 

0*0® 

0*0® 





1889 

X7 * 840 % 

9 ©959 ® 

12*159® 

14*213® 

16*044® 

17*737® 

19*440® 

1890 

X2 1 *318® 

23*531 ® 

26*061 © 

28*485® 

30*586® 

32*406 © 

34*028® 

1891 

X35 *516® 

36*915® 

38*259® 

39*571 © 

40*878® 

42* 1 98 © 

43*560® 

1892 

X44 *987 © 

46*522® 

48*212® 

50*129® 

52*361 ® 

54*993© 

58*035® 

1893 

X61 *341 © 

64*684® 

67*91 1 ® 

0*0® 

0*0® 

0*0© 

0*0® 

1894 

X0®0® 

0*0® 

0*0® 

0*0® 

0 © 0 © 

0*0® 

0*0® 

1895 

X0®0® 

0 * 0 * 

0*0) 





1896 


83 



DATA ( ( ARRAY3 ( I ) » != 271*360)= 


X7.799* 

9 .903 * 

12.062* 

14.029* 

15.755* 

17.349* 

18.966* 

IB^vJ 

X20.784, 

22 # 9Q3 * 

25.499, 

27.842* 

29.833* 

31 .544, 

33.065* 

1899 

X34 #461 * 

35 #776* 

37.039* 

38.275, 

39*508* 

40.760* 

42.054* 

1900 

X43.422* 

44 « 903 * 

46.556* 

48.456* 

50.709, 

53.404* 

56.507, 

1901 

X59 • 807 * 

63 #060, 

66.137* 

0.0* 

0.0* 

o.o* 

o.o* 

1902 

XO.O* 

0*0* 

0.0* 

0.0* 

0.0* 

o.o* 

0.0* 

1903 

xo.o* 

o.o* 

0.0* 





1904 

X7.704* 

9.773* 

1 1 • 868 * 

13.729* 

15.337* 

16.827* 

18.352* 

1905 

X20.107* 

22.301 * 

24.768* 

27.004* 

28.869* 

30.462* 

31 .877* 

1906 

X33 » 1 77 * 

34.400* 

35.580* 

36.737* 

37.894, 

39.071 * 

40.295* 

1907 

X4I .596* 

43.018* 

*4.624* 

46.505* 

48.776* 

51 .522* 

54.649* 

1908 

X57 « 88 1 , 

60.984* 

63.874* 

0.0* 

0.0* 

o.o* 

o 

• 

o 

1909 

XO.O* 

0.0* 

0.0* 

0.0* 

0.0* 

o.o* 

c 

• 

o 

1910 

XO.O* 

0*0* 

0.0) 





191 1 

DATA t t ARRAY3 ( I ) t 

1= 361 *450)= 




1912 

X7.610* 

9*646* 

11 .673* 

13.427* 

14.927* 

16.320* 

17.764* 

1913 

XI 9.466 * 

21 *661 * 

24.083* 

26.207* 

27.950* 

29.435* 

30*754* 

1914 

X31 *965* 

33.108* 

34.210* 

35.295* 

36.381 * 

37.492* 

38*651 * 

1915 

X39.892* 

41 .262* 

42.830* 

44.701 ♦ 

47.003* 

49.803* 

52.932* 

1916 

X56*063* 

58.999* 

61 .699* 

64.190* 

0.0* 

o.o* 

0*0* 

1917 

XO.O* 

0*0* 

0*0* 

0.0* 

0.0* 

0*0* 

o.o* 

1918 

XO.O* 

0*0* 

0*0* 





1919 

XT . 520 ♦ 

9*521 , 

I 1 .477* 

13.127* 

14.525* 

15.828* 

17.200* 

1920 

X ! 8 • 860 • 

21 .060* 

23.436* 

25.447* 

27.077* 

28.462* 

29.692* 

1921 

X30 #822 * 

31 .891 * 

32.923* 

33.941 * 

34.964, 

36.012* 

37.1 13* 

1922 

X38 .301 ♦ 

39.624, 

41 .162* 

43.030* 

45.376* 

48.230* 

51 .331 ♦ 

1923 

X54 *327 * 

57.093* 

59.607* 

61.915* 

64.067* 

0*0* 

o.o* 

1924 

XO.O* 

0.0* 

0.0* 

0.0* 

6.0* 

0.0* 

0*0* 

1925 

XO.O* 

0*0 ♦ 

0*0) 





1926 

DATA C C ARRAY3 ( I ) * 

1= 451 t! 

540 > = 




1927 

X7 « 362 * 

9*307* 

1 1.165* 

12.694* 

13.982* 

15.192* 

16*484* 

1928 

XI 8 *096 * 

20.289, 

22.581 * 

24.457* 

25.961 ♦ 

27.238* 

28.373* 

1929 

X29.41 9* 

30*408, 

31.366* 

32.311 * 

33.266* 

34.246* 

35.281 ♦ 

1930 

X36-406* 

37.676* 

39.172* 

41.032* 

43.409* 

46.279* 

49.287* 

1931 

X52 • 1 10* 

54.661 * 

56.971 * 

59.087* 

61.055* 

62.906* 

0.0* 

1932 

XO.O* 

0.0* 

0.0* 

0.0* 

0.0* 

o.o* • 

0.0* 

1933 

XO.O* 

0.0* 

0.0* 





1934 

X7.131 * 

8.995* 

10.731 * 

12.126* 

13.298* 

14.409* 

15.616* 

1935 

XI 7 • 173 * 

19.339, 

21.511 • 

23.231 * 

24.602* 

25.766* 

26.803* 

1936 

X27 #759 * 

28.665, 

29.543* 

30.413* 

31 .292. 

32.201 ♦ 

33.164* 

1937 

X34 *220 * 

35.423, 

36.871 * 

38.711 * 

41 .098* 

43.931 * 

46.783* 

1938 

X49 #384 * 

51 .707, 

53.799* 

55.714* 

57.493* 

59.168* 

60.762* 

1939 

X0#0* 

0.0* 

0.0* 

O 

. 

o 

o.o* 

o 

• 

o 

0.0* 

1940 

xo#o* 

0.0* 

0.0) 





1941 

DATA ( ( ARRAY3 ( I ) ♦ 

1= 54! * 

630) = 




1942 

X6 #916* 

8.703, 

10*321 * 

1 1 .595* 

12.665. 

13.690* 

14.825* 

1943 

XI 6 #339 * 

18.481 , 

20.528* 

22.107* 

23.361 * 

24.425* 

25.374* 

1944 

X26.252* 

27.085, 

27.894* 

28.696* 

29.51 1 * 

30.355* 

31 .256* 

1945 

X32 • 249 ♦ 

33.398, 

34.803* 

36.631 * 

39.034* 

41.809* 

44.490* 

1946 

X46 #880 « 

48.994, 

50.896* 

52.634* 

54.24 9-* 

55.770* 

57.218* 

1947 

X58 *61 0 * 

0.0, 

o.o* 

0.0* 

0.0* 

o.o* 

0*0* 

1948 

X0#0* 

0.0, 

0.0* 





1949 

X6. 71 5* 

8.427, 

9.932* 

1 1 • 098 * 

12*079* 

13.030* 

14.101 * 

1950 

X 1 5*584 * 

17.701 , 

19.622* 

21.072* 

22.222* 

23*199* 

24.072* 

1951 

X24 « 881 * 

25.649, 

26.397* 

27.140* 

27.896* 

28.683* 

29.527* 

1952 

X30#468* 

31 .566* 

32.936* 

34.765* 

37.181 * 

39.875* 

42.379* 

1953 

X44.573, 

46.503* 

48.234* 

49.817* 

51 .288* 

52.674* 

53.993* 

1954 

X55.265* 

56.496* 

0.0* 

0.0* 

0.0* 

o.o* 

o.o* 

1955 

X0#0* 

0.0* 

0.0) 





1956 


84 



DATA t ( ARRAY3 ( 1 ) , 

t= 631 * 

720) = 




1957 

X 6 * 527 * 

8*166* 

9*564, 

10.633, 

11 .536, 

12.421 , 

13.437, 

1958 

X 1 4*900 « 

16*987, 

18*784, 

20.118, 

21 .175, 

22.075, 

22 * 880 , 

1959 

X23.627, 

24*339, 

25.033, 

25.724, 

26.428, 

27.164, 

27,958* 

1960 

X28 « 849 t 

29*904, 

31 ,247, 

33.083* 

35.507, 

38.099, 

40.428* 

1961 

X42 • 44 I « 

44*206, 

45.787, 

47.234, 

48.579, 

49*846, 

51 .055* 

1962 

X52 *21 8 * 

53*3474 

54.449, 

0 . 0 * 

0 * 0 , 

0 . 0 * 

0 . 0 * 

1963 

xo. 0 * 

0*04 

0 * 0 , 





1964 

X6.431 , 

8.0254 

9.346, 

10.344, 

11.194, 

12.033* 

13*016* 

1965 

X 1 4 *484 *r 

16.5654 

18.275, 

19.519, 

20.510, 

21,356* 

22.113* 

1966 

X22.817, 

23.488, 

24.144, 

24 • 799 , 

25.467, 

26.167, 

26.928* 

1967 

X27 *787 9 

28.818, 

30.157, 

32.030, 

34.485, 

36.998, 

39.193, 

1968 

X41 • 073 * 

42.717, 

44.190* 

45.538, 

46.791 , 

47.974, 

49.102, 

1969 

X50 ® 1 88 « 

51 .242, 

52.273, 

53.288, 

O 

. 

o 

O 

. 

O 

O 

• 

O 

1970 

X0.0, 

0 . 0 , 

0 * 0 ) 





1971 

DATA C C ARRAY3 ( l ) , 

I* 721,810)* 




1972 

X6.430, 

8.006* 

9.279, 

10.233, 

1 1 .048, 

11.860, 

12.828* 

1973 

XI 4. 329* 

16.430, 

18.084* 

19*267* 

20*215, 

21.026, 

21 .752* 

1974 

X22 .428 * 

23.074, 

23.706, 

24.337, 

24.985, 

25.665, 

26.405* 

1975 

X27.250* 

28.276, 

29.637, 

31 .581 , 

34.092, 

36,553, 

38.656* 

1976 

X40 *444 , 

42.006, 

43.405, 

44.686, 

45.878, 

47*004, 

48,077* 

1977 

X49 .112* 

50.1 17, 

51.100* 

52.067, 

53.026, 

53.982, 

O 

o 

1978 

xo.o* 

6 . 0 * 

0 . 0 * 





1979 

X6.531 , 

8 . 120 * 

9.371 , 

10.303, 

11 . 102 , 

11.903, 

12.877, 

1980 

X 1 4*440 * 

16.591 , 

18.215* 

19,368, 

20.294, 

21 .087, 

21 .800* 

1981 

X22.462, 

23.096, 

23.716* 

24.339, 

24.977* 

25.650, 

26.386* 

1982 

X27.232, 

28.273, 

29,683, 

31.738, 

34.334, 

36.777, 

38.826* 

1983 

X40 *561 * 

42.075, 

43.432, 

44.675, 

45.833* 

46.926* 

47,970* 

1984 

X48 *975 , 

49,953, 

50.909* 

51 .851 , 

52.782* 

53.717, 

54.651 * 

1985 

XO.O, 

0 . 0 * 

0 . 0 ) 





1986 

DATA ( ( ARRAY3 ( I ) ♦ 

1 = 811* 

900) = 




1987 

X6.662 * 

8.271 , 

9.506, 

10.421 , 

1 1 .209, 

12.004, 

12.989* 

1988 

XI 4.630, 

16.833, 

18.433* 

19.564, 

20.473, 

21.252, 

21 ,954, 

1989 

X22 *607 « 

23.233, 

23.846* 

24 . 46 1 , 

25.094, 

25.764, 

26*500* 

1990 

X27.351 « 

28.413, 

29.886, 

32.071 , 

34.753, 

37.177, 

39.180* 

1991 

X40 *871 * 

42.346, 

43,669, 

44.881 , 

46.01 1 , 

47.078, 

48.097, 

1992 

X49.080 * 

50.036, 

50.971 * 

51 .893, 

52.807, 

53.716, 

54,636, 

1993 

X55.560, 

0 * 0 * 

0 . 0 * 





1994 

X6*800* 

8.426, 

9,645 , 

10.542, 

1 1 .319, 

12 . 110 * 

13.109* 

1995 

X 1 4 # 837 * 

17.085, 

18,658, 

19.766, 

20 • 659 , 

21.426, 

22.117* 

1996 

X22 *762* 

23.378, 

23.984, 

24.592, 

25*220, 

25.886* 

26.622* 

1997 

X27.480 « 

28.567, 

30.109, 

32.438, 

35.192, 

37.586, 

39.541 , 

1998 

X4t • I 88 ♦ 

42.624, 

43.914, 

45.096, 

46*198, 

47.240* 

48*236, 

1999 

X49* 1 97 * 

50.131 , 

51.046* 

51 .948, 

52.844, 

53.738* 

54.636, 

2000 

X55.543 « 

56.467, 

57.412) 





2001 

DATA (i 

ARRAY31 1) , 

1= 901 ♦ 

990) = 




2002 

X7 * 064 « 

8.744, 

9.974, 

10.876, 

11.659, 

12.462* 

13.496* 

2003 

XI5.352, 

17.685, 

19.264, 

20.378, 

21 .270, 

22 .04 1 , 

22.736* 

2004 

X23 *386 * 

24.008, 

24.619, 

25.234, 

25.869, 

26.546, 

27.297* 

2005 

X28* 1 81 • 

29.314, 

30.964, 

33.491 * 

36*356 , 

38.762, 

40.710* 

2006 

X42.348 * 

43.778, 

45.062, 

46.240, 

47*339, 

48*379, 

49.373* 

2007 

X50 *332 « 

51.266, 

52.160, 

53.082, 

53.978, 

54.873, 

55*772* 

2008 

X56 • 682 4 

57.603, 

58.559, 





2009 

X7 • 387 * 

9*134, 

10.384* 

1 1 .295, 

12.090, 

12.912, 

13.991 * 

2010 

XI 6*002 4 

18.431 , 

20.025, 

21.153, 

22.049, 

22.829, 

23.533* 

2011 

X24* 192 * 

24.824, 

25.444* 

26.070, 

26.717, 

27.409, 

26.181 * 

2012 

X29*097* 

30.290, 

32.076* 

34.836, 

37.817, 

40.242, 

42.193* 

2013 

X43.833* 

45,264, 

46.551 * 

47.733, 

48.836, 

49*880* 

50.879, 

2014 

X51 *843, 

52.781 , 

53.701 * 

54.609, 

55.510, 

56,412, 

57.318, 

2015 

X58.236* 

59.172, 

60.132) 





2016 
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DATA ( (ARRAY3( i )* 

1= 991,1080)= 

X7®744, 

9 a 563 © 

10*831 © 

1 1 ® 754 © 

XI 6*727 © 

19*251 © 

20*858© 

21 *997© 

X25 a 074 , 

25*717* 

26© 349 © 

26*986© 

X30 $101 « 

31 © 365 « 

33*31 1 © 

36*330© 

X45®450© 

46 © 886 © 

48*276* 

49*362© 

X53*494* 

54 © 438 © 

55*364© 

56*279© 

X59®939© 

60*884, 

61*856© 


X8® 143© 

10*037, 

1 1 « 324 © 

12*259© 

X17*540© 

20*154© 

21*775© 

22*925© 

X26*048® 

26*701 © 

27*346© 

27*996© 

X31 ©209* 

32*552© 

34*690© 

37*994© 

X47© 224 © 

48*663© 

49® 959© 

51 © 1 51 « 

X55*308® 

56 © 260 © 

57*193© 

58*1X5© 

X61 *812© 

62*770® 

63© 756 ) 


DATA ( ( ARRAY3 ( I ) © 

1= 1081© 

1170) = 

X8 a 588 * 

10*562© 

1 1 *869© 

12*818© 

X18®456® 

21 ©155© 

22*791 © 

23*953© 

X27 « 1 25* 

27*791 * 

28*448© 

29*114© 

X32 *437 * 

33*871 © 

36*244© 

39*855© 

X49« 1 77 ® 

50*623© 

51 ©925© 

53*125© 

X57 *324© 

58 © 274© 

59*216© 

60*247© 

X63 *887 * 

64*859© 

65*860© 


X9 » 091 * 

11 ©148© 

12*475© 

13*439© 

XI 9 #494 * 

22*271 © 

23*923© 

25*099© 

X28*326® 

29*006© 

29*678© 

30*360© 

X33 *806 * 

35*349© 

38*010© 

4! *942© 

X51 ©344* 

52*798, 

54*109© 

55*317© 

X59 *545 * 

60*515© 

61 ©467© 

62*409© 

X66 © 1 99 * 

67*186© 

68*205) 


DATA ( ( 

ARRAY3 ( I ) © 

1= 1171© 

1260) = 

X9*219® 

1 1 *236© 

12*501 « 

13*426© 

X 1 9 © 665 * 

22 © 347 © 

23*919© 

25*045© 

X28 © 1 57* 

28*816© 

29«468© 

30*130© 

X33 © 535 * 

35*128© 

38*015© 

42*064© 

X51 ©014* 

52 ©398© 

53*648© 

54*802© 

X58®844© 

59*773© 

60*686© 

61 *589© 

X65.231 © 

66*183© 

67*156© 


X9® 21 1 * 

1 1 ©142© 

12*323© 

13*196© 

X 1 9 ©533 * 

22 © 058, 

23*528© 

24*587© 

X27 ©539 © 

28*166© 

28*789© 

29*422© 

X32»732© 

34*359, 

77*460© 

41 *500© 

X49®856© 

51 ©252, 

52*325© 

53*408© 

X57 ©21 2 © 

58*087, 

58*947 © 

59*799© 

X63 ©242 © 

64*144© 

65*079) 


DATA ( ( 

ARRA Y3 ( I ) © 

1= 1261© 

1350) = 

X9 © 20 1 © 

1 1 ©041 © 

12*145© 

12*970© 

XI 9 #401 © 

21 *768, 

23*144© 

24*142© 

X26 ©948 © 

27*543© 

28*137© 

28*744© 

X31 ©966© 

33*635© 

36*966 « 

40*933© 

X48 ©735 © 

49*951 , 

51*052© 

52*071 © 

X55©654© 

56*480, 

57*292© 

58*097© 

X61 ©356© 

62*213© 

63*102© 


X8 *992 © 

10*687© 

1 1 ©691 © 

12*451 © 

XI 8 ©828* 

20*978, 

22*233© 

23*150© 

X25 ©751 © 

26 © 308 « 

26*859© 

27*425© 

X30 ©492 « 

32*177© 

35*673© 

39*419© 

X46 ©51 7 « 

47*631 © 

48*642© 

49*577© 

X52®872© 

53*633© 

54 ©382© 

55*124© 

X58 © 1 36 » 

58*931 © 

59*757) 



2017 


12*563© 

13*405© 

14*535© 

2018 

22*902© 

23*692© 

24*407© 

2019 

27*647© 

28*355© 

29 * 1 50 © 

2020 

39*414© 

41*855© 

43*809© 

2021 

50*471 © 

51 *520 © 

52*524© 

2022 

57*188© 

58® 096© 

59*011 © 

2023 




2024 

13*083© 

13*948© 

15*139© 

2025 

23*846© 

24® 643 © 

25 * 36 8 © 

2026 

28*671 , 

29*398© 

30*217® 

2027 

41 *169© 

43*622© 

45*578® 

2028 

52*265© 

53*321 © 

54*332© 

2029 

59*032© 

59*950© 

60*875© 

2030 




2031 




2032 

13*658© 

14*549© 

15*812® 

2033 

24*890© 

25*695© 

26*434® 

2034 

29*806© 

30*553 © 

31 *400® 

2035 

43*105© 

45*567© 

47*527© 

2036 

54*247© 

55*310© 

56*329© 

2037 

61 *074© 

62*002© 

62*938® 

2038 




2039 

14*298© 

15*220© 

16*568© 

2040 

26*049© 

26*873© 

27*620® 

2041 

31 *071 © 

31 *840© 

32*719* 

2042 

45*252© 

47*721 © 

49*687® 

2043 

56*449© 

57*522© 

58*550® 

2044 

63*347© 

64*287© 

65*236® 

2045 




2046 




2047 

14*258© 

15*166© 

16*555® 

2048 

25*959© 

26*755© 

27*476© 

2049 

30*824© 

31 *579© 

32*446® 

2050 

45*234© 

47*574© 

49 *439 © 

2051 

55*883© 

56*909© 

57*892® 

2052 

62*489© 

63*392© 

64*304® 

2053 




2054 

13*990© 

14*872© 

16*293® 

2055 

25*451 © 

26*206© 

26*894® 

2056 

30*087© 

30*815© 

31 *656® 

2057 

44*467© 

46*645© 

48*384© 

2058 

54*424© 

55*389© 

56*315® 

2059 

60*649© 

61 *502© 

62*364® 

2060 




2061 




2062 

13*729© 

14*587© 

16*053® 

2063 

24*959© 

25*676© 

26*331 © 

2064 

29*382© 

30*084© 

30*904® 

2065 

43 ®T03 © 

45 ©732© 

47*356® 

2066 

53*027© 

53*936© 

54*809® 

2067 

58*900© 

59*707© 

60*524® 

2068 




2069 

13*160© 

13*977© 

15*475® 

2070 

23*906© 

24® 569© 

25*177© 

2071 

28*025© 

28*685© 

29*464® 

2072 

41 *933© 

43*777© 

45*257® 

2073 

50*455© 

51 *291 © 

52*094® 

2074 

55*865© 

56 *610© 

57*365® 

2075 


2076 



DATA ((ARRAYS?!), 

1= 1 351 9 

1440 ) = 




2077 

X8©591 * 

! 0e 099 ® 

10*988, 

1 1 ©672® 

12*319® 

13*082 ® 

14*598, 

2078 

X17.838, 

19# 735 ® 

20*852® 

21 © 676 ® 

22*358® 

22*958, 

23*509, 

2079 

X24 ® 03 1 * 

24 ©537 $ 

25 « 042 $ 

25*557® 

26 « 1 04 , 

26*713® 

27*436, 

2080 

X28#408® 

30 • 080 ® 

33*641 * 

37*044® 

39*270, 

40*906® 

42*226® 

2081 

X43.352® 

44 * 349 ® 

45 * 255 « 

46*095, 

46 *884 , 

47*635, 

48*357, 

2082 

X49.057® 

49 #742 ® 

50*416® 

51 *085® 

51 *754, 

52*426® 

53*1 09® 

2083 

X53*806 « 

54 ® 526 t 

55*276 * 





2084 

X8« 222® 

9 ©564 % 

10® 356 9 

10*976, 

11 #570® 

12*289, 

13*836® 

2085 

X16.935® 

1 8 #61 7 9 

19*618® 

20*363® 

20 #982, 

2! *528® 

22*030® 

2086 

X22 #506, 

22*970® 

23*432® 

23*906, 

24*409, 

24*970® 

25 #645, 

2087 

X26 * 570 ® 

28*239 ® 

31 *828, 

34*905® 

36*887, 

38*350 , 

39*534* 

2088 

X40 #547 9 

41 ® 446 ® 

42*263® 

43*022, 

43*735® 

44*415, 

45*068, 

2089 

X45.702® 

46 # 323 # 

46*934® 

47*541 ® 

48*147, 

48*758® 

49*378, 

2090 

X50 ® 0 1 3 « 

50*669* 

51*354) 





2091 

DATA ( (ARRAY3C I ) ♦ 

1= 1441® 

1530) = 




2092 

X7 « 842 * 

9# 029 ® 

9*737® 

10# 299 ® 

10*844, 

11 #520® 

13*107, 

2093 

X 1 6 ©027 <j 

1 7 ©51 7 * 

18*414, 

19*087, 

19*649® 

20*146, 

20*604® 

2094 

X21 ® 039 « 

21 #462® 

21*885® 

22*320, 

22*784, 

23*301 , 

23.929® 

2095 

X24 *806® 

26*476* 

30*040® 

32*7999 

34*564® 

35*874® 

36*937, 

2096 

X37®849 » 

38*659* 

39*398® 

40*083® 

40*728® 

41 #343® 

41 *934, 

2097 

X42.508® 

43*070® 

43*624® 

44*175® 

44*725, 

45*280* 

45*843® 

2098 

X46.421 9 

47*019* 

47*644® 





2099 

X7.355® 

8 #380 4 

9*000 ® 

9*501 , 

9 « 994 t 

10*624* 

12*237® 

2100 

XI 4*906® 

16*201 * 

16*992® 

17*591 , 

1 8 • 093 ® 

18.538® 

18*948® 

21 01 

X 1 9 # 339 « 

19*719® 

20*100® 

20*493® 

20*913® 

21 *384® 

21 *958, 

2102 

X22 *779 « 

24*43! * 

27*867® 

30*289, 

31 *837® 

32*991 , 

33*931 ® 

2103 

X34 #740 ® 

35*459® 

36* 1 16, 

36*725, 

37*300® 

37*847® 

38.374® 

2104 

X38 ® 886 « 

39*388® 

39*882® 

40*374, 

40*865® 

41 #361 ® 

41 #865® 

2105 

X42.383® 

42*919* 

43*481 ) 





2106 

DATA ( < ARRAY3 < 154 

1= 1531, 

1620) = 




2107 

X6 9 923 9 

7*814* 

8*364, 

8*815, 

9*265® 

9*855 « 

1 1 *498® 

21 08 

XI 3*926® 

15*063* 

15*768® 

16*305® 

16*757, 

17*159* 

17*530® 

2109 

XI 7*883* 

16*229® 

18*574, 

18*931 , 

19*324® 

19*746® 

20*277® 

2110 

X21 #047® 

22*692* 

25*979® 

28* 119, 

29*490, 

30*517® 

31 *356® 

21 1 1 

X32#080 « 

32*724® 

33*313, 

33*860® 

34*376® 

34*868® 

35*342® 

21 12 

X35®803« 

36*254® 

36*699® 

37*141 9 

37 * 584® 

38*031 « 

38*486® 

21 13 

X38 #953 ® 

39*438® 

39*948® 





2114 

X6 * 537 ® 

7*318® 

7*810® 

8*219® 

8*632® 

9*189® 

1 0 *860 ® 

21 15 

XI 3*064 ® 

14*071 * 

14*704, 

15*189® 

15*599, 

15*965® 

16*303® 

21 16 

X 1 6 © 62 5 ® 

16*940® 

17*256® 

17*582, 

17*933® 

18*331 , 

18*824® 

2117 

XI 9 #552 ® 

21*201 « 

24*323, 

26*227, 

27*451 ® 

28*372® 

29*128® 

21 18 

X29®780 ® 

30*363® 

30*895, 

31 *390® 

31 *857, 

32*302® 

32*732® 

21 19 

X33 * 1 49® 

33*558® 

33*961 ® 

34*363, 

34*765, 

35*171 ® 

35*584® 

2120 

X36»009 « 

36*451 ® 

36*916) 





2121 

DATA { (ARRAY3( ! ) 4 

1= 1621, 

1710)= 




2122 

X5«91 9« 

6*561 ® 

6*979® 

7*333® 

7 © 696 ® 

8.206* 

9*850, 

2123 

XI 1 ©728 ® 

1 2 # 574 ® 

13*116, 

13*534® 

13*890® 

14*207® 

14.501 « 

2124 

X 1 4 #782® 

15*056® 

15*332, 

15*618® 

15*926, 

16.277® 

16*716® 

2125 

X17.378® 

18*977, 

21*782, 

23*394, 

24 © 437 ® 

25*227* 

25*877® 

2126 

X26 #439 ® 

26*942 ® 

27*402® 

27*830, 

28*234, 

26*619® 

28*991 * 

2127 

X29*353® 

29*707® 

30*057® 

30*405, 

30*754® 

31 #106® 

31 ©466 , 

2128 

X3i ©835# 

32*220® 

32*625® 





2129 

X»000 ® 

*000® 

#000® 

*000® 

6*915® 

7*389* 

8*995® 

21 30 

XI 0 *599 9 

1 1 #320, 

1 1 *788, 

12*153, 

12*464® 

12*742® 

13*001 ® 

2131 

X 1 3 #247 § 

13*490® 

13*733® 

13*985® 

14*258, 

14*570® 

14*964® 

21 32 

XI 5 #572 f 

17*130® 

19*640® 

21*021 * 

21 *922® 

22*607® 

23*172® 

2133 

*23*663® 

24*101 * 

24*503, 

24*877® 

25*230, 

25*568® 

25*893, 

21 34 

X26®209 « 

26*520® 

26*826, 

27 * 1 31 ® 

27*437® 

27*747® 

28*062, 

2135 

X28 *387 ® 

28*726® 

29*083) 





2136 
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DATA <{ARRAY3(!)® 

1= 1711 

*1800) = 




x.ooo* 

0.0® 

.0009 

.000* 

.000® 

6.724® 

8.292* 

X9.671 * 

10.295® 

10.706* 

1 1.028® 

11.304* 

1 1 *551 * 

1 1 .781 * 

X12.001 * 

12.217® 

12.435® 

12.660* 

12.905® 

13.186* 

13.543® 

X 1 4 ® 1 06 * 

15.634® 

17.885* 

19.086* 

19*874® 

20.477* 

20.976* 

X2 1 .409® 

21 .797® 

22.153® 

22.484* 

22*797* 

23*096* 

23.385® 

X23.666® 

23.941 ® 

24.213* 

24*484® 

24.756* 

25.031 * 

25.312* 

X25.602* 

25.903, 

26.222* 





xo.o* 

0.0* 

0.0* 

.000* 

.000® 

*000* 

7.349* 

X8.44.8. 

97*9.31 ,9. 

59*9.82* 

10.032*10 

.227* 



X10.42* 

10.599* 

10.785* 

10.979* 

11.189* 

I 1 .432* 

1 1 .743* 

X12.246® 

13.695® 

15.604* 

16.600. 

17*260* 

17.767* 

18.188* 

X 1 8.554 ® 

18.883, 

19.184® 

19.465* 

19.730® 

19.984® 

20.229* 

X20.468® 

20.702® 

20.934® 

21.164® 

21 .395* 

21 *630* 

21 .869* 

X22.1 16* 

22.373* 

22.645) 





180000.® 

90000® * 100000. * 1 10000. * 120000. , 130000 

. ® 140000. 

*150000** 


DATA (ATAB-lOOOO. *20000. *30000. *40000® *50000® *60000* *70000® * 
2160000® *170000. * 180000® *190000. *200000. * 21 0000 . * 220000 • * 230000 » * 
3240000. *250000. * 260000 . * 270000 . *280000 • * 290000 • * 300000 • * 31 0000 • * 
4320000* *330000. *340000. *350000 . *360000 » *370000**380000. ♦ 390000 * * 
5400000* ) * (VTA8=6000. *7000. *8000. *9000. * 10000. * 11000. * 12000. * 
613000. *14000**15000**16000* * 17000. * 1 8000. * 1 9000 • * 20000 • * 21 000. * 
722000. *23000.. 24000® *25000. *26000. *27000. *28000**29000* * 30000. ♦ 
831 000. * 32000. *33000. *34000. *35000. *36000. *37000**38000. *39000. * 
940000® *41 000. *42000* *43000. *44000. *45000. *46000 • * 47000 • *48000. * 
X49000. *50000. ) 

END 


2137 

2138 

2139 

2140 

2141 

2142 

2143 

2144 

2145 

2146 

2147 

2148 

2149 

2150 

2151 

2153 

2152 

2154 

2155 

2156 

2157 

2158 
21 59 
2160 
2161 
2162 
2163 


88 



PROGRAM USAGE AND RESTRICTIONS 


Program D1244 was written in FORTRAN IV language for the Control Data 
6000 series computer using the scope 3.0 operating system. The program requires a 
field length of 130 000 octal locations for compilation and 70 000 octal locations for pro- 
duction running. (The additional 40000 locations are required for compilation because 
the BLOCK DATA subprogram requires the entire 130 000 locations for compilation.) 

The computing time depends on the elapsed real time of the problem, the computing time 
interval, and the physical size of the system (number of blocks). For parametric studies 
it is suggested that the time interval and the number of blocks be varied to determine the 
most expeditious configuration. 

A list of restrictions and limitations of the programed equations follows: 

(1) For any trajectory input, the free-stream thermodynamic properties are based 
on the 1962 U.S. Standard Atmosphere tables (ref. 2) and the stagnation conditions on the 
body are for air in chemical equilibrium (ref. 15). 

(2) The aerodynamic heating computations are restricted to air or gases with the 
same thermodynamic and transport properties. Further restrictions in the aerodynamic 
heating options are: (a) the Van Driest option (refs. 3 and 4) is restricted to y = 1.4, 

c p = 0.24 Btu/lbm-°R, p <x 6 = = 0.505, 0 ^ M e ^ 20, 0.2 ^ T w /T e ^ 6.0 and for 

turbulent flow the additional restriction of 10^ = NR ee = 10^; (b) the Sibulkin option 
(ref. 5) is limited to a perfect gas (y = 1.4) and thus Voo = 5000 ft/sec; (c) the Detra, 
Kemp, and Riddell option (ref. 6) is used in the velocity range 5000 ^ V^, ^ 20 000 ft/sec, 
and (d) the Cohen option (ref. 7) is employed for velocities up to 41 000 ft/sec. 

For local or free-stream conditions outside of the theoretical or correlation equa- 
tion ranges or for gas mixtures other than air (such as in the entry into planetary atmo- 
spheres or wind-tunnel environments), it is recommended that the heating rates or the 
heat -transfer coefficients and recovery temperatures be generated by separate computa- 
tions and then these results be put into the program to determine the thermal response of 
the skin. 

Additional restrictions in the input data are: 

(1) The number of blocks are 100 or less except for the inverse solution which are 
30 or less. 

(2) The product of the number of horizontal blocks times the total number of blocks 
cannot exceed 2000. 
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(3) All convective blocks must be numbered first (that is, ascending order beginning 
with the digit one) before nonconvective blocks are numbered. 

(4) The number of materials is limited to 10 and these materials can have variable 
thermal properties. 

Figure 4 shows the deck setup for D1244. For non- Langley users the Langley 
library subroutines described in appendix C should be included with program subroutines 
in the deck. 



Figure 4.- D1244 deck configuration. 
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PROGRAM INPUT FORMAT 


The first card of each case is an identification card and the remaining cards are 
loaded by the FORTRAN IV NAMELIST. The following is a description of how the cards 
should be set up for cases: 

Card 1: Column 1 should have a 1 punch. The remainder of the card is used for identifi- 
cation of the case. 

Card 2: Columns 2 to 9 - $CASEINP 

Card 3, . . . are data cards. Data begins in column 2 and each card must end with a 
comma. 

Last card: Column 2 - $ 


Input Data Cards 

The following is a list of input parameters and their identifications. These cards 
must begin in column 2 and each card must end with a comma. 


NO number of blocks 


NHOR 


the greatest difference between the numbers of any two blocks which 
have a mutual heating term, either conduction, joint or air -conduction. 
Note that all convective blocks must be numbered before nonconvective 
blocks are numbered. NHOR*NO cannot exceed 2000. 


Examples: 


1 

2 

3 

4 

5 

6 

7 

8 


1 

2 

3 


4 

5 

6 

7 

8 

9 

10 



1 

2 

3 


4 

5 

6 

7 


8 

12 

11 

10 

9 


NHOR = 1 
NHOR = 4 


NHOR = 4 


NHOR = 8 
NAXRGAP = 3 
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NOCONV 


number of convection blocks 


NR ADO number of radiation-out blocks 

NJOINT number of joints 

NAIRGAP number of air gaps 

Example: 

NAIRGAP = 3 

IDIM 0 - thin wall 

1 - one dimensional 

2 - two dimensional 

ICONVQ 0 - inverse solution 

1 - heating rates are given 

2 - stagnation option 

3 - Van Driest option 

0 - heating rate tables are same for each convection block 

1 - heating rate tables are different for each convection block 

0 - use for radiation-out term 

1 - linearize term 

INVERSE 0 - no inverse solution 

1 - inverse solution required 

COHEN 0 - use Cohen above 20 000 ft/sec 

1 - use Cohen for all ranges 

These controls have been specified to describe the kind of configuration and are 
used for the most part as routing controls for various options in the program. From this 
point on, only the necessary data pertinent to each particular configuration needs to be 
included, that is, if the configuration has no joint term, then any input relating to joints 
may be ignored. This statement also applies to any other option in the program. 

TIME initial starting time, sec 

TIMSTOP stopping time, sec 


IDIFF 

LINEAR 
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DELTAT 

PRFREQ 

TEMP 

MAT 

EMS1 ^ 
EMS2 

> 

EMS1(L 
RHO 
NKMPTS 
TKTAB1 ^ 
TKTAB2 

> 

TKTAB1Q> 
KM1 ^ 

KM2 

> 

KM10, 

NCPPTS 

TCPTABr 

TCPTAB2 
• > 

TCPTBIO^ 


computing interval (delta time), sec 
print frequency 

initial temperatures of blocks, °R 

material numbers of blocks (each material is given a number) 
(one per block) 


emissivities of materials (four locations are saved for each material 
and the coefficients of a cubic polynomial are stored in these loca- 
tions beginning with the constant value) 


densities of materials, lb/ft^ 

number of table values for k m of each material 


independent temperature tables for each k m table, °R 


k m (conductivity of material) tables, Btu/ft-sec-°R 


number of table values for Cp (specific heat) of each material 


independent temperature tables for each c p table, °R 
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CPI 'l 


CP2 I 

CP10, 

WD 

LEN 

VOL 

TWDEPTH 

ACOND 


NTOUCH 

ICROBLK 

CROAREA 

PERCRNL 

IQORH 

HIPTS 

TRANRN 

FPCONE 


Cp (specific heat of material) tables, Btu/lbm-°R 


widths of blocks, ft 
lengths of blocks, ft 
volumes of blocks, ft 3 
thin-wall depth, ft 

conduction areas (the areas are listed beginning with the first block - 
for example, if block 1 touches 2 and 5, the areas between 1 and 2 
and between 1 and 5 are given in that order; then if block 2 touches 1, 
3, and 6 only the areas of the blocks ahead of the operating block 
number are given, for example, only the areas between 2 and 3 and 
2 and 6 are given. No area is repeated . There are no blanks left 
and the areas are listed consecutively. 

conduction block information (see NTOUCH (m,n) explanation under 
section "Arrays") 

block numbers of convection and radiation-out terms 

convection and radiation-out areas, ft2 

Reynolds number lengths (if Van Driest), ft 
percents (if stagnation) 

q, Btu/ft2-sec, or h, Btu/ft2-sec-°R, and T r , °R, inputs 

1 — if q inputs 

2 - if h and T r input 

number of values in each input table 

transition Reynolds number 

1.0 - flat plate\ 

V 3 - cone J 
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RADNOSE 


nose radius, ft 


ACRADI air gap information (see section "Arrays") 

AJOINT joint information (see section "Arrays") 

If heating input is given, the following tables are required: 

HITIME table of times for heat input, sec 

HTAB h tables (heat -transfer coefficient), Btu/ft2-sec-°R 

TAWTAB T r tables ( recovery temperature), °R 

QTAB q tables, Btu/ft2 -sec 

If an inverse solution is required, use the following information: 

NOINV number of inverse blocks (number of blocks with known temperature 

time histories) 

INVBLKS inverse block numbers 

NOINV T number of values in inverse temperature table 

TINV time table for inverse temperatures, sec 

TEMINV temperature table for inverse blocks, °R 

If there is more than one inverse block, the tables are as follows: 

TEMINV 1 table 1 

TEMINV2 table 2 

TEMINV 3 table 3 

TEMINV4 table 4 


95 



The following information is given for a trajectory when the Van Driest or stagna- 
tion options are used: 

NAVPTS number of values in altitude and velocity tables 

TIMEAV time table, sec 

ALTTAB altitude table, ft 

VELTAB velocity table, ft/sec 

The following information is required for the Van Driest option and is used to convert 
free-stream conditions to local conditions: 

NRATPT number of ratio table points 

MFSTAB independent free-stream Mach number values 

VERTAB local to free-stream velocity ratios 

MACTAB local to free-stream Mach number ratios 

REYTAB local to free-stream Reynolds number ratios 

TEMTAB local to free-stream temperature ratios 

RHOTAB local to free-stream density ratios 

If the model is at an angle of attack and two blocks with convective heating require 
different tables, use the following notation: 

VERTAB1 

VERTAB2 

MACTAB1 

MACTAB2 

REYTAB1 

REYTAB2 

TEMTAB1 

TEMTAB2 

RHOTAB1 

RHOTAB2 

NRATAB(l) a ratio table number for each convection block (If only one set of ratio 
tables is given, each convection block will be represented by a 1.) 


96 



ARRAYS 


All (m,n) arrays when read into the machine are stored in consecutive locations, 
the m varying most rapidly. 

NTOUCH(m,n) .- NTOUCH(5,100) is a two-dimensional array where the n varies as the 
block number and m goes from 1 to 5 with: 

1 total number of conduction blocks 

2-5 numbers of the conduction blocks 

If the conduction blocks require the width for the computation, the sign of the conduction 
block must be negative. 


Example: 


1 

2 

3 

4 

5 

CD 


The NTOUCH array would be entered: 

NTOUCH(l,l) = 2,2, -4, 

NTOUCH(l,2) = 2,3, -5, 

NTOUCH(l,3) = 1, -6, 

NTOUCH(l,4) = 1,5, 

NTOUCH(l,5) = 1,6, 

NTOUCH(l,6) = 0, 

Another more simplified way of entering this same data would be: 

NTOUCH = 2, 2, -4, 2*0, 2, 3, -5, 2*0, 1, -6, 3*0, 1, 5, 3*0, 1, 6, 4*0, 

ACRADI(m,n) .- ACRADI(4,20) is a two-dimensional array where the n array varies 
as the number of the joint and the m goes from 1 to 4 with 

1 number of air gap block 

2 block on opposite side of air gap 

3 distance across air gap, ft 

4 area on air gap, ft2 
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Example: 


Area 1 Area 2 



Sketch (c) 

ACRADI(1,1) = 1, 2, bi, A h 
ACRADI(1,2) = 3, 4, b 2 , A 2 , 


Another more simplified way of entering this same data would be: 

ACRADI = 1, 2, bj, Aj, 3, 4, b 2 , A 2 , 


AJOINT(m,n) .- AJOINT(4,20) is a two-dimensional array where the n array varies as 
the number of the joint and the m goes from 1 to 4 with 

1 number of joint block 

2 connecting block (other side of joint); block number is negative 

if the direction of heating across joint is in a vertical 
direction 

3 hj of joint, Btu/ft2-sec-°R 

4 area of joint, ft^ 

Example: 

< — J oint 2 

Sketch (d) 
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AJOINT(l,l) = 1, 2j hj } i, Ap 
AJOINT(l,2) = 3, -A, hj >2 , A 2 , 

Another more simplified way of entering this same data would be: 

AJOINT = 1, 2, hj A h 3, -A, h j2 , A 2 , 
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SAMPLE CASES 


Two sample input listings and results are given in this section. 

Case I is a one -dimensional stagnation heating analysis of a 1 -foot -diameter sphere, 
composed of an exterior shell of beryllium and an interior shell of teflon, separated by an 
air gap. Note that the input volumes and conduction areas for the blocks were calculated 
for a flat-face slab rather than for a sphere simply for ease of computation. 



5 10 15 20 25 30 

Time , sec 


(a) Case I. 

Figure 5.- Trajectory and configuration samples. 
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Altitude , km 


Case II is a two-dimensional analysis of a section of an 11° sharp cone composed of 
fiber glass, copper, and aluminum. 

The geometry and trajectory are shown in figures 5(a) and 5(b) for cases I and II, 
respectively. 

Listing of the input deck and the program results for the two sample cases follow. 


*conv. 


91.44 r 


76.20r 


60.96 


45.72 


30 48 


I5.24f 



-| 2 * 


-h.8 




(b) Case II. 
Figure 5.- Concluded. 
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Velocity , km /sec 



Case I 


BERYLLIUM TEFLON hEAT SHIELD 1-D STAG. POINT THERMAL ANALYSIS 


&CASEINP 


NO 

s 

10 9 

NHOR 

St 

1} 

NVER 

— 

0* 

NOCCNV 

s 

1* 

NRADO 

= 

19 

KJOINT 

* 

Of 

NAIRGAP 

= 

If 

IGEOM 

3S 

Of 

IDIM 

S 

If 

I CON VO 

* 

2* 

ID IFF 

= 

Of 

LINEAR 

= 

If 

INVERSE 

= 

Of 

COHEN 

- 

If 

TIME 

;= 

0.0 9 

riMSTOP 

= 

0.35E402 

DELTA! 

= 

0. 2E+CG 9 

PRFREC 

s 

10 9 


TEMP = C® 5E+03 f 0.5E+03* 0.5£+03t 

0.5E403f 0.5E+03, 0.5E403, 

0*0, OoO ? 0«C f 0*0} CsO} 

O.Ot Q.Os 0« 0 9 0*0, O.Of 

0 « 0 f 0»0 9 0*0? 0 » 0 } 0 *0 9 

Ob 0 s G » 0 ? 0» 0 s 0 a 0 , OsOi 

0. Q 9 O.Of 0.0 9 O.Of C*C» 

0*0 » 0*0 9 0»0 » 0*0# O.Of 

0«0 } O.Ot 0 »0 ? 0«0j O.Of 

0.0 9 O.Ot 0*0? 0.0, G®0? 


MAT 

= X 9 

19 


l 9 

19 

If 

2 9 

2 9 

2f 

2t 

Of 

Of 

Of 

Of 

Of 

Of 

0» 


Of 

09 

O 9 

0* 

Of 

09 

o» 

Of 

0# 

Of 

Of 

Of 

Of 

Of 

Of 

Of 

Of 


Of 

09 

O 9 

09 

Of 

09 

Of 

Of 

Of 

Of 

Of 

Of 

Of 

Of 

Of 

0, 

Of 


Of 

c» 

O 9 

09 

Of 

Of 

Of 

Of 

Of 

Of 

Of 

Of 

Of 

Of 

0 , 

0, 

Of 


Of 

09 

Of 

09 

Of 

Of 

Of 

Of 

Of 

Of 

Of 

Of 

Of 

Of 

Of 

Of 

0 f 


Of 

Op 

Of 

09 

Of 

Of 

Of 

Of 

Of 

Of 

Of 

Of 

Of 

Of 

Of 



EMSI 

- 0. 

2E+00 

9 0 

.0* 

0.0 

f G 

.Of 











EMS2 

- 0. 

8E4CC 

9 0 

.0 9 

0 

« 

0 

9 0 

.Of 












EMS3 — 0»0» O.Ot 0*0 ? G® 0 ? 

EMS4 = 0*C* C.G, 0®0 S C.Ot 


0.5E+03 # 0 

.5E403 

f 0 . 

5£+03f 

0.5E403 

O.Ot 

O.Of 

O.Of 

O.Of 

O.Ot 

O.Of 

O.Of 

O.Of 

O.Of 

O.Of 

O.Ot 

O.Of 

O.Ot 

O.Of 

O.Of 

O.Of 

O.Ot 

O.Of 

O.Of 

O.Of 

O.Of 

O.Ot 

O.Ot 

O.Ot 

O.Of 

0.09 

O.Of 

O.Ot 

O.Ot 

O.Ot 

O.Of 

O.Qt 

O.Of 

O.Of 

0.0, 

O.Of 

O.Of 

O.Of 

O.Of 

O.Of 

O.Ot 

O.Of 

O.Of 

O.Of 

O.Of 

O.Ot 

O.Ot 

O.Of 

O.Of 

O.Of 
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EMS5 

= 

o*o f 

0 .0 9 

o.c* 

0.0, 







EMS6 

= 

CsOj 

0® 0 ? 

o.c* 

0.0, 







EMS7 

- 

OsQ ? 

0.0* 

o.c® 

0.0, 







EMS8 

■ 

c.o* 

0.0* 

o.c® 

0 a 0 , 







EMS9 

■ 

C.O* 

a»c* 

o.c* 

0®0, 







EMS13 

— 

Q « 0 « 

e.o* 

0.0® 

0.0, 







RHQ 

- 

C® 116E + C3 * 
0*0, 

0® 137E+C3, 

o.c, 

0.0* 

0.0® 

0.0, 

0.0, 

0.0, 0.0, 

HKHPTS 

= 

6 1 2 

* 0 * 

Of c 

* c, 

G, 0 

, o, 

0, 




rKTABl 

= 

C « 5E+03 * 0 

0»0, 0*0? 

. 1E+C4 
C.O* 

, 0. 

15E+04, 

0® 2E+04* 

0.25E+CA, 0 

.28E+C4, 0.0, 

KM1 

SS 

0 * 284E-Q 1 » 

C « 0 9 C.O? 

0 . 2 27E“G1 * 
O.C* 0.0* 

0.173E-01, 

0. 125E-Q1, 

C.94E 

-02, 0.74E-02 

TKTAB2 

« 

C * 5 E +0 3 , 0 

* 15E+0A * C 

a 0 , 0. 

0, 0. 

0, 0. 

0, 0. 

C* 0, 

3, 0.0, 0*0, 

KM2 


C . 4E-* 

04, 0 

» 8E-C4 

* c. 

G , 0.0 

* 0.0 

9 0.0 

, 0.0 

, 0.0, 0,0} 0.0, 

TKTAB3 

* 

0 6 0 } 

0.0* 

O.C* 

0.0, 

O.C, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

KM3 

= 

0*0, 

c.o* 

0.0* 

0.0* 

o.c, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

TKTA84 

= 

0*0? 

0.0* 

0.0* 

0.0, 

c.o. 

0.0, 

0.0, 

0.0, 

0,0, 

0.0, 

KM4 


0*0* 

c.o. 

0.0* 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

O.Of 

TKTAB5 

= 

0*0* 

0.0* 

0.0* 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0,0, 

O.Ot 

KM5 

= 

Q«0» 

c.o* 

0.0* 

c.o, 

c.o. 

0.0, 

0.0, 

0.0® 

0.0, 

0.0, 

TKTAB6 

= 

c.o. 

C.G * 

0.0* 

0.0, 

0.0, 

0.0, 

0.0* 

0,0, 

0.0, 

0.0, 

KM6 

= 

0®0* 

0.0* 

o.c* 

0.0* 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

TKTAB7 

= 

0.0* 

c.o* 

0.0, 

O.C, 

0.0, 

0.0, 

0.0, 

0.0, 

0,0, 

0.0, 

KM7 

= 

0.0* 

0.0, 

o.c* 

0.0, 

o.c, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

TKTAB8 


0.0* 

0.0* 

0.0, 

0.0, 

c.c. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

KH8 

= 

0*0* 

c.o* 

0.0, 

c.o, 

c.c, 

0.0, 

0.0, 

0,0, 

0.0, 

0,0, 

TKTAB9 

= 

0.0, 

0.0* 

O.C, 

0.0, 

0.0, 

0.0* 

0.0, 

0.0® 

0.0, 

0.0, 

KM9 

* 

0.0* 

0.0* 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

TKTAB10 

= 

0.0* 

c.o* 

O.C, 

o.c, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

KMIO 

* 

0.0* 

o.c* 

0.0, 

0.0, 

0.0* 

0.0, 

0.0, 

0,0, 

0.0, 

0.0, 

NCPPIS 

= 

A* 0 

* 0* 

0, 0 

, 0, 

o® o 

f 0, 

0* 




TCPTAB1 


C.5E+03* 0 

G.G* 0.0* 

* 8E+03 

• 0 ft 

11E+C4* 

0.28E+0A, 

0,0* 

0.0, 

0® 0 , 0® 0 9 

CPI 

3= 

C. A25E+GC* 
0.0* 0.0* 

0.55E+CC* 

0.617E+C0, 

0.86E+00, 0.0, 0 

.0, 0.0, 0.0 



TCPTAB2 


C 9 5E + 0 3 » 0*0, 0 © Os O.C 


OsCs 0»0 j 0© 0 s CeCs 0® 0 - CsO 


CP2 

as 

Oa 255E+GG b 

o.c* 

o 

9 

o 

0 * 0 f 

o 

e 

o 

o 

« 

o 

o 

e 

o 

0*0, 

0*0* 

0.0* 

TCPTAB3 

= 

0.0* 

0.0s 

o.c. 

0.0* 

c.c* 

0.0, 

0.0* 

0.0, 

0.0* 

o.c. 


CP3 

■ 

0.09 

0*0, 

0*0, 

c.o. 

c.o* 

0.0, 

0*0, 

0*0, 

0.0* 

0.0, 


TCPTAB4 


G « 0 * 

0*0, 

0.0* 

0.0, 

0.0, 

0.0, 

0.0* 

0*0, 

0.0* 

0.0, 


CP4 


0.0* 

0*0, 

o.c. 

c.o. 

0*0, 

0.0, 

0.0, 

0*0, 

0.0* 

0*0, 


TCPTAB5 

= 

0*0, 

0.0* 
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0.0* 

0.0, 

0.0* 

0*0, 

0.0* 

0,0* 

0.0, 


CPS 

= 

0*0, 

0*0, 

0*0* 

c.o. 

c.c. 

0.0, 

0*0, 

0.0* 

0.0* 

o 

. 

o 


TCPTAB6 

* 

C.O* 
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o.c. 

0*0, 

c.o* 

c.o. 

0.0* 

0.0, 

o 

. 

o 

0*0, 


CP6 

* 

0.0* 

0*0* 

0.0* 

0.0, 

C.C, 

0.0* 

0.0* 

0.0* 

0.0, 

0.0, 


TCPTAB7 

= 

0®Q 9 

0*0* 

0.0, 

o.c* 

0.0* 

0.0, 

0.0* 

0.0, 

0*0, 

0.0, 


CP7 

* 
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0*0, 
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c.o* 

c.c* 

0.0, 

o 

# 

o 

0.0, 

0.0, 

O.Of 


TCPTAB8 

*■ 
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0.0, 

c.o. 

G.O, 

0.0* 
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0.0, 


CPS 
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0*0* 

0.0, 
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TCPTAB9 

= 
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o.c* 
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O.Of 
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CP9 
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TCPTB10 
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0®0? 0»G® 0® 0 1 0*0? C ®0 

0©0? G®0$ Os 0 j 0 ® 0 ? 0 «0 

0 ©Q? C ® 0 f 0*0? 0 * 0 ? 0 ®C 

0*0? C»G? 0*0 ? 0*0? 0»0 

0®0$ 0 *0 9 0*0 ? 0 * 0 o 0 ®0 

0*0? 0 9 0 9 0*0 ? OdO? C*0 

0*0? G*0 ? 0»0 9 0* 0 » 0*0 

0*0* 0 *0 9 0 * 0 9 CeO? 0*0 

0* 0 9 G#C 9 0»0 9 0*0? 0*0 

0*0$ 0»0» 0* 0 » 0*09 0*0 

0*09 C®0$ 0*0* 0*09 0*0 

G * 0 9 0 *0 » 0®0? 0*09 0*0 

0* 0 9 0*0$ 0*0 ? 0*0$ 0*0 

0®0» 0*0$ 0*0$ 0*0? 0®C 

0*09 0*0$ 0*0$ 0*0$ 0®0 

C* 0 9 C *0 9 

TAbTAB = 0*09 0*0? 0*09 0*0$ 0*0 

0*09 0* C 9 0*09 0*09 0*0 

0*09 0*09 0*0$ C a 0 9 0*0 

0*09 0*09 0*09 C»0» 0*0 

G®0 9 0*09 0*0? 0 # C 9 0*0 

C • 0 9 0*0? 0*0? 0*0$ 0*0 

0®Q» 0 • 0 « 0*09 0*0$ G • 0 

0» 0 » 0*09 0*0$ 0 *C > 0 *c 

0*09 C • 0 9 0 « 0 9 0*0* 0*0 

0 * 0 9 0 * 0 $ 0*0 9 0*09 0*0 

0*0 9 0*09 0* 0 9 0*0? 0*0 

0*09 0*09 0*09 0*0$ 0*0 

C* 0 9 0*09 0*09 O 0 O 9 0*0 

0*0. 9 C • 0 9 0*09 0*09 0 • c 

0*0$ O9O9 0*0$ 0*09 0*0 

0*0$ 0*09 G»G $ 0*0$ 0*0 

0*09 G • 0 9 0*09 G *0 9 0*0 

0*0 9 0 *0 9 0»0 $ 0*09 0*0 

0*0 ? C *0 9 

QTAB — 0©0» 0*0$ 0*0 9 0*09 0*0 

0*0 9 0*09 0*0$ G *G 9 0*0 

0* 0 9 0*0# 0*09 C0O9 0*0 

Q9Q9 0*09 0 * 0 $ 0 * 0 $ c*c 

0*0* C 9 O 9 0*09 0*09 0 aC 

0*09 O 9 G 9 0 » 0 9 0 e G 9 0*0 

0*0$ 0*0$ 0*0$ 0*09 o*c 

0.0? 0*0$ 0*0$ 0*0, 0*0 

0*0 » 0*0$ 0*0? O9G9 0*0 

0* 0 9 0*09 0*0 » G®0$ 0*0 

0*0? 0 *0 9 0 *0 9 0*0? C ©G 

0 • 0 9 0*0 » 0*09 0 * 0 9 C 0 0 

0*09 0*0* 0*0 » 0 9 0 9 G«C 

0 9 0 9 G 9 C 9 0*0$ 0 9 0 9 0 »C 

0*09 0 » 0 $ 0 * 0 » 0 * 0 $ 0*0 

0*0 9 0*09 0.0 9 0*0 9 0*0 

0 * 0 $ C * 0 9 0® 0 9 0 * 0 $ 0*0 

0*09 0*0$ 0*0? 0 • 0 9 0 *c 

0 * 0 » c.o * 


0©0s 0®0$ 0*0 9 0*0? 0*09 0*0 

0*0 9 0 sG f 0*0 9 0* 0? 0*0? 0*0 

0®0 9 0 » 0 ? 0®0 ? 0*0? 0*0? 0*0 

0*0? O9O9 0»0? 0*0? 0*0? 0*0 

0»0» 0*0? 0 e 0 9 0*0? 0*0? 0*0 

0 * 0 * 0 * 0 ? 0*09 0 ® 0 9 0 » 0 t 0 * 0 ? 

0*0; 0»0? 0*0» 0*0? 0*0? 0®0 

0*0 i 0®0? 0*0? 0*0? 0*0? 0*0 

G»0? 0*0 9 0 a 0 t 0©0? 0*0? 0*0 

0® 0 f 0 * 0 ? 0 * 0 » 0® 0 ? 0 * 0 ? 0*0 

0 ® G 9 0*0 ? 0 * 0 ? 0 * 0 ? 0 * 0 ? 0*0 

0 * 0 ? 0*0 9 0®0 # 0 * 0 ? 0 * 0 ? 0*0 

0 a 0 9 0 * 0 ? 0 ® 0 ? 0 * 0 ? 0 * 0 ? 0*0 

0*0? 0*0? OsO t 0*0? 0*0? 0*0 

0*0? 0®O ? 0*0? 0*0? 0*0? 0*0 

0 a 0 9 0*0? 0*0? OsO? 0*0? 0*0 

0*0 9 0 a 0 f Oa 0 9 OsO? 0*0? 0*0 

0*0? 0 a 0 ? Os 0 ? 0 a 0 ? 0*0? 0*0 


0 * 0 ? 0 * 0 ? 0 a 0 ? 0 * 0 ? 0 * 0 ? 0*0 

0 * 0 ? 0 * 0 ? 0 * 0 ? OsO ? 0 * 0 ? 0*0 

0*0 ? 0 * 0 ? 0*0? 0*0? 0*0? 0*0 

0» 0 1 0*0? 0*09 0 a 0 ? 0*0? 0*0 

0 * 0 ? Q » Q ? 0*0 9 0 « 0 ? 0 * 0 ? 0 * 0 ? 

0*0? 0*0? 0*0? 0*0? 0*0? 0 a 0 ? 

0*0? 0®0? 0*0? 0*0? 0*0? 0*0? 

OsO? 0*0» 0*0? 0*0? 0*0? 0*0? 

0 ® 0 ? 0 * 0 ? 0 * 0 ? 0 * 0 ? 0 * 0 ? 0*0 

0*0? 0*0? 0*0? 0*0? 0* C ? OsO 

0*0? OsO? 0*0? 0*0? 0*0? OsO 

0*0? OsO? Q« 0 ? OsO ? 0*0? Os 0 ? 

OsO? 0 » 0 ? 0*0? OsO? OsO? Oa 0 

0*0? Oa 0 9 Oa 0 9 Oa 0 ? OaO ? 0*0 

0*0? 0*0? 0*0? 0*0? 0»0? 0*0 

0®0? 0*0? 0*0? 0*0? 0*0? 0*0 

0®Op 0*0? 0*0? OsO? OsO? 0*0 

0*0? OsO? OsO? OaO? OaO? 0*0 


0*0? 0*0? 0»0? OsO? OsO? 0*0? 

0*0? OaO? 0*0? 0*0? OaO? OaO 

0*0? OsO? 0*0? OsO? OaO? OsO 

0*0? OsO? 0*0? OsO? OaO? OsO 

OaO? OsO? OsO? 0»0? 0*0? OsO 

OsO? 0*0? 0*0? 0*0? Qs 0 ? OsO 

OaO? OaO? OsO? OaO? 0*0? OaO 

OsO? OaO? 0*0? 0*0? OsO? OsO 

OsO? 0*0? 0»0? 0*0? OsO? OsO 

OsO? OsO? OsO? 0*0? OsO? OsO 

OsO? 0«0» 0*0? OsO? OaO? 0*0 

0*0? OsO? 0*0? 0*0? 0*0? OsO 

OsO? 0»0? OsO? OsO? 0© 0 ? 0*0 

G * 0 9 OsO? OsO? 0 a 0 ? OsO? OsO 

0*0? 0*0? OsO? OaO? 0*0? 0*0 

C.O? OsO? OsO? OaO? OsO? OaO 

OsO? 0«0? 0*0? OaO? OsO? OsO 

OsO? 0*0? OsO? 0* Q? OsO? OsO 



NGINV 


0 , 


INVBLKS 

S 

c, c 

, 0, 

0, 









NOINVT 

- 

0, 











TINV 

= 

G.O, 

0.0, 

0.0, 

0.0, 

o.c. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 



0.0* 

c.o, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 



0.0, 

0.0, 

o.c. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0*0, 

0.0, 

0.0, 



0.0, 

0.0, 

0.0, 

o.c. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 



0.0, 

0.0, 

0.0, 

0.0, 

o.c, 

0.0, 

0.0, 

0.0, 

c.o, 

0.0, 

0.0, 



0.0, 

c.o. 

0.0, 

0.0, 

o.c, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 



c.o. 

0.0, 

o.c. 

0.0, 

c.c, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 



c.o. 

0.0, 

0.0, 

0.0, 

o.c. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 



0.0, 

c.o. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 



0-0, 

0.0, 

0.0, 

0,0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 



0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 



0.0, 

0.0, 

o.c. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 



0.0, 

0.0, 

0.0, 

c.o, 

0.0, 

0.0, 

0.0, 

c.o, 

0.0, 

0.0, 

0.0, 



0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

o.o. 

0.0, 

0.0, 



0.0, 

0.0, 

0.0, 

o.c, 

o.c. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 



0.0, 

0.0, 

0.0, 

0.0, 

o.c. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 



0.0, 

0.0, 

0.0, 

0.0, 

c.o. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 



0.0, 

c.o. 

0.0, 

0.0, 

o.c, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 



0.0, 

c.o. 










TEMINV 


0.0, 

0.0, 

0.0, 

0.0, 

o.c. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 



0.0, 

0.0, 

0.0, 

0.0, 

o.c. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 



0.0, 

0.0, 

0.0, 

o.c, 

o.c. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 



c.o. 

0.0, 

0.0, 

o.c. 

o.c, 

0.0, 

0.0, 

0.0, 

0.0, 

o.o, 

0.0, 



0.0, 

0.0, 

0.0, 

0.0, 

o.c. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 



0.0, 

0.0, 

0.0, 

0.0, 

o.c, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 



0.0, 

0.0, 

0.0, 

0.0, 

o.c. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 



0.0, 

0.0, 

0.0, 

0.0, 

0 *0 , 

0.0, 

0.0, 

o.c. 

0.0, 

0.0, 

0.0, 



0.0, 

0.0, 

0.0, 

0.0, 

o.c, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 



c.o. 

0.0, 

0.0, 

0.0, 

o.c. 

0.0, 

0.0, 

0.0, 

o.o, 

0.0, 

0.0, 



0.0, 

c.o. 

0.0, 

0.0, 

c.c. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 



0.0, 

0.0, 

Q.C, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0*0, 

0.0, 

0.0, 



0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 



0.0, 

c.o. 

0.0, 

0.0, 

o.c. 

G.O, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 



0.0, 

0.0, 

0.0, 

0.0, 

c.o. 

0.0, 

0.0, 

0.0, 

o.o, 

0.0, 

0.0, 



0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 



0.0, 

c.o, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

o.o, 

0.0, 

0.0, 



c.o. 

0.0, 

0.0, 

0.0, 

o.c. 

G.O, 

0.0, 

0.0, 

o.o, 

0.0, 

0.0, 



0.0, 

c.o. 

0.0, 

0*0, 

0.0, 

0.0, 

0.0, 

0.0, 

o.o, 

0.0, 

0.0, 



0.0, 

o.c, 

0.0, 

0.0, 

0.0, 

G.O, 

0.0, 

0.0, 

o.o, 

0.0, 

0.0, 



o;g, 

c.o, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 



0.0, 

0.0, 

0.0, 

0.0, 

G.O, 

0.0, 

0.0, 

0.0, 

o.o, 

0.0, 

G.O, 



0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 



0.0, 

c.o, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 



0.0, 

0.0, 

0.0, 

0.0, 

o.c. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 



0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

o.o, 

0.0, 

0.0, 



0.0, 

0.0, 

0.0, 

0.0, 

o.c, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 



0.0, 

c.o. 

0.0, 

0.0, 

c.c. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 



0.0, 

0.0, 

0.0, 

0.0, 

c.c. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 



0.0, 

c.o. 

0.0, 

0.0, 

o.c. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 



0.0, 

0.0, 

o.c. 

0.0, 

o.c. 

G.O, 

0.0, 

0.0* 

0.0, 

0.0, 

0.0, 



0.0, 

0.0, 

0.0, 

0.0, 

o.c. 

0.0, 

0.0, 

0.0, 

o.o, 

0.0, 

0.0, 



0.0, 

c.o. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

o.o. 

0.0, 

0.0, 



0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

o.o. 

0.0, 

0.0, 



0.0, 

0.0, 

0.0, 

0.0, 

o.c. 

0.0, 

0.0, 

0.0, 

o.o, 

0.0, 

0,0, 



0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

o.o, 

0.0, 

0.0, 



0.0, 

c.o. 

0.0, 

0.0, 








TEMINV1 

=: 

0.0, 

0.0, 

0.0, 

0.0, 

o.c. 

0.0, 

o.c, 

0.0, 

0.0, 

0.0, 

0.0, 



0.0, 

o.c , 

0.0, 

0.0, 

o.c, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 



0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 



0.0, 

0.0, 

0.0, 

0.0, 

o.c, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 



c.o. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 



0.0, 

0.0, 

o.c. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0* 

0.0, 

0.0, 



0.0, 

0.0, 

0.0, 

0.0, 

o.c. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 



0.0, 

0.0, 

0.0 , 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 



c.o. 

0.0, 

0.0, 

0,0, 

0.0, 

0.0, 

0.0, 

0.0, 

c.o, 

0.0, 

0.0, 



0.0, 
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TEMINV2 


TEM £NV3 = 


TEMINV4 * 


NAVPTS = 
TIMEAV = 


ALTTAB * 


VELTAB = 


NRATPT * 
MFSIAB = 


G.O, 

0.0, 

o.c. 

0.0, 

c.c. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

C.O, 

C.O, 

o.c. 

o.c. 

o.c. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0 , 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

Q.O, 

o.c. 

0.0, 

0.0, 

0.0, 

0.0, 

Q.O, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

o.c. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

o.c, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

o.c. 

0.0, 

0.0, 

0.0, 

Q.O, 

0.0, 

0.0, 

0.0, 

C.O, 

0.0, 

0.0, 

C.O, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

o.c. 

0.0, 

c.c. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

o.c, 

0.0, 

C.O, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

O.G, 

o.c. 

C.O, 

0.0, 

0.0, 

0.0, 

0.0, 

o.o. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

o.c. 

o.c, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

o.c. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

c.c. 

0.0, 

0.0, 

o.c. 

o.c. 

0.0, 

0.0, 

0.0, 

0.0, 

0*0, 

0.0, 

0.0, 

0.0, 

o.c, 

0.0, 

o.c. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

o.o. 

0.0, 

G.O, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0 , 

0.0, 

0.0, 

0.0, 

c.c, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0*0 , 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

o.c. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

o.c. 

0.0, 

0.0, 

0.0, 

0.0, 

o.o, 

0*0, 

0.0, 

0.0, 

0.0, 

0.0, 

o.c. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

O.G, 

C.O, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0* 

0.0, 

O.Q , 

0.0, 

0.0, 

0.0, 

0.0, 

C.O, 

o.c. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

o.c, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

o.c. 

o.c. 

0.0, 

G.O, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

o.c. 

0.0, 

0.0, 

G.O, 

0.0, 

C.O, 

c.c. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

7, 

C.O, 

o.c. 

0.0, 

o.c. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.5E+01, 0 

• 1E+G2 

, 0.15E+02, 

0.2E+02, 

C.25E+02, 0 

• 3E+02 , 

0.0, 

0.0, 

0.0, 

0.0, 

o.c, 

0.0, 

0.0, 

0.0, 

0.0, 

O.G, 

0.0, 

Q.O , 

G.O, 

o.c, 

0.0, 

0.0, 

G.O, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

O.C, 

0.0, 

O.G, 

0.0, 

0.0, 

0.0, 

owo , 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

o.c, 

C.O, 

c.c, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

G.O, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

o.c. 

c.c, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

C.O, 

0.0, 

0.0, 

0.0, 

0.0, 

o.c. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

C.O, 

0.0, 

G.O, 

0.0, 







0.35E+C6, 

0. 32E+06 , 0 

•288E+06, 0 

.255E+Q6, 0 

. 22E+06 , 0. 

188E+06 

0.158E+06, 

0.0, 

0.0, 

o.c. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

Q.O, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

o.c. 

G.O, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

G.O, 

C.O, 

0.0, 

0.0, 

o.c. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

c.c, 

0.0, 

0.0, 

O.G, 

o.o, 

0.0, 

0.0, 

0.0, 

o.c. 

o.c, 

C.O, 

o.c. 

0.0, 

0.0, 

0.0, 

0.0, 

9.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

o.c. 

0.0, 

C.O, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

o.c. 

o.o. 

C.O, 

C.O, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

C .0 , 

0.0, 

0.0, 

c.c. 

0.0, 

0.0, 





C • 2 56E+C5 , 

0.256E+C5, 

G.256E+05, 

0.256E+05, 

0. 2566+05, 


0.256E+Q5, 

0.254E+C5, 

O.G, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

G.O, 

C.O, 

0.0, 

0.0, 

c.c. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

C.O, 

o.c. 

0.0, 

c.c. 

0.0, 

G.O, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

c.c, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

C.O, 

C.O, 

o.c, 

0.0, 

c.c, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

o.c, 

O.G, 

0.0, 

o.c, 

o.c, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

G.Q, 

0.0, 

0.0, 

0.0, 

c.c. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

o.c. 

0.0, 

o.c. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

c.c. 

o.c. 

C.O, 

o.c. 

o.c, 

0.0, 

0.0, 

0.0 , 




0 . 


0.0, 

C.O, 

C.O, 

o.c. 

c.c. 

0.0, 

0.0, 

o.o. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

C.O, 

O.G* 

0.0, 

C.O, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 
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VERT AB 

s 

0.0* 

Cl e C , 

o.c, , 

G« 0 * 

c.c* 

0.0* 

0.0* 

0,0* 

0.0* 

0.0* 

0.0 



o.o* 

c.o* 

0 . G * 

c.o* 

c.c* 

0.0* 

c.o* 

0.0* 

0.0, 

0.0* 

0.0, 



0*0* 

c.o* 

o.c* 

0.0* 

o.c* 

0.0* 

0.0* 

0 » 0 * 

0.0, 

0,0, 

0.0, 



0*0 * 

0.0* 

0.0* 

0.0* 

o.c* 

0,0* 

0.0, 

0.0* 

0.0* 

0.0* 

0.0, 



0*0* 

0.0* 

0.0* 

0.0 * 

c.c* 

0.0* 






MACTAB 

* 

o#o » 

c.o* 

0.0* 

0.0, 

o.c* 

0.0* 

0.0* 

o.c* 

0.0* 

0.0* 

0.0 



0*0* 

c.o* 

0.0* 

0.0* 

c.c* 

0,0* 

0.0* 

0,0* 

0.0, 

0,0* 

0,0, 



0*0, 

c.o* 

0.0* 

0.0, 

c.o. 

0.0, 

0,0* 

0.0* 

c.o* 

0.0, 

0.0 



O.C* 

c.o* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0, 

0.0, 



0*0* 

0.0* 

0.0* 

0.0* 

c.c* 

0.0* 






REYTAB 

* 

0*0* 

0.0* 

0.0* 

0.0* 

o.c* 

0.0* 

0.0* 

0.0, 

0,0* 

0.0* 

0.0, 



0,0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0,0* 

0.0* 

0,0* 

0.0* 

0.0 



0.0, 

0.0* 

o.c* 

0.0* 

o.c* 

0.0* 

0.0, 

0.0* 

0.0* 

0.0* 

0,0 



0*0* 

0.0* 

0.0* 

o.c* 

c.c* 

0,0* 

0.0* 

0.0* 

0.0* 

0.0, 

0,0 



0.0* 

c.o* 

0.0, 

0.0* 

o.c* 

0.0, 






TEMTAB 

ss 

c.o* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0, 

0.0 



0.0* 

0.0* 

0.0* 

0.0* 

c.c* 

0.0* 

0,0* 

0.0* 

0.0* 

0.0, 

0.0 



0.0* 

0.0* 

0.0* 

O.G* 

0.0, 

0,0* 

0.0, 

0.0* 

0.0, 

0.0, 

0.0 



0.0* 

0.0* 

0.0* 

0.0* 

0,0* 

0.0* 

0.0* 

0.0* 

0.0, 

0.0* 

0.0 



0.0* 

c.o* 

0.0, 

c.c* 

c.c* 

c.o* 






RHOTAB 

— 

0.0* 

0.0* 

0.0* 

0.0* 

o.c* 

0.0* 

0.0* 

0.0* 

0,0* 

0.0* 

0.0 



0.0* 

0.0* 

0.0* 

c.o* 

0.0, 

0.0* 

0.0* 

0.0* 

0.0* 

0,0* 

0.0 



0.0* 

0.0* 

0.0* 

o.c* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0 



0.0* 

c.o* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0, 

0.0 



0.0* 

0.0* 

0.0* 

0.0* 

0.0, 

0.0* 






NRATAB 


0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0, 

0.0* 

0.0* 

0.0* 

0.0* 

0.0 



0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0 



0.0* 

0.0* 

0.0* 

0.0, 

o.c* 

0.0* 

0.0* 

0.0* 




VERTAB1 


0.0* 

c.o* 

0.0* 

c.o* 

0.0* 

0.0* 

0,0* 

0.0* 

0.0* 

0.0* 

0.0 



GoO* 

0.0* 

o.c. 

0.0* 

o.c* 

c.o* 

0.0* 

0.0* 

0.0 , 

0.0* 

0.0 



0.0* 

c.o* 

0.0* 









VERTAB2 

= 

C » 0 * 

0.0* 

o.c, 

c.o* 

o.c* 

c.o* 

0.0* 

0.0* 

0.0, 

0.0* 

0.0 



0.0* 

0.0, 

0.0* 

c.o* 

o.c* 

0,0* 

0.0* 

0.0, 

0.0, 

0.0* 

0.0 



0.0* 

0.0* 

0.0* 









MACTAB1 

s 

0.0* 

0.0* 

o.c* 

c.o* 

0,0* 

0.0* 

0.0* 

0.0, 

0.0, 

0.0* 

0.0 



0.0* 

0.0* 

o.c* 

0,0* 

o.c* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0, 

0.0 



0.0* 

0.0* 

0.0* 









MACTAB2 

= 

0.0* 

G.G* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0,0, 

0.0* 

0.0 



0.0* 

0.0* 

0.0* 

0.0* 

0,0* 

0.0, 

0.0* 

0.0* 

0.0, 

0.0* 

0.0 



0.0* 

0.0* 

0.0* 









REYTABi 

— 

0.0* 

0.0* 

0.0* 

0.0* 

0,0* 

0.0* 

0.0* 

0,0* 

0.0* 

0.0* 

0.0 



0.0* 

0.0, 

0.0* 

0.0* 

0.0, 

0.0* 

0,0* 

0.0* 

0,0, 

0.0, 

0,0 



0.0* 

0.0* 

0.0* 









REYTAB2 

= 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0, 

0.0* 

0.0* 

0® 0 » 

0.0* 

0.0 



0.0* 

0.0* 

0.0 , 

0.0* 

0.0* 

0.0, 

0.0* 

0.0, 

0.0, 

0.0* 

0.0 



0.0* 

0.0, 

0.0* 









TEMTAB1 


0.0* 1 

0.0* 

0.0* 

0.0* 

o.c* 

0.0* 

0,0* 

0.0* 

0.0, 

0.0* 

0.0 



0.0* 

c.o. 

O.G, 

0.0* 

0.0* 

0,0* 

0.0, 

0.0* 

0.0* 

0.0, 

0.0 



0.0* 

0.0* 

0.0* 









TEMTAB2 

= 

0.0* 

0.0* 

0.0, 

0.0* 

O.G* 

c.o* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0 



0.0* 

0.0* 

0.0, 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 

0.0, 

0.0, 

0.0 



0.0* 

c.o* 

0.0* 









RHOTAB1 

- 

0.0* 

0.0* 

0.0* 

0,0* 

0.0* 

0.0* 

0,0* 

0.0* 

c.o* 

0,0, 

0.0 



0.0* 

0.0* 

O.G, 

0.0* 

0.0* 

0,0* 

0.0* 

0.0* 

0.0* 

0.0, 

0.0 



0.0, 

c.o* 

0.0, 









RHOTAB2 

S 

0.0* 

0.0* 

0.0* 

0.0, 

0.0* 

0.0, 

0.0* 

0,0* 

0,0* 

0.0* 

0,0 



0.0* 

0.0* 

0.0, 

0,0, 

o.c* 

0.0* 

0.0* 

0.0, 

0.0* 

0.0, 

0.0 



0.0* 

c.o* 

0.0* 










SEND 
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BERYLLIUM TEFLON HEAT SHIELD 1-D STAG* POINT THERMAL ANALYSIS 


TIME = 2 » CGOO DELTA TIME = *2000 

BLOCK NO TEMPERATURE CONVECTION 0 


1 

2 

3 

A 

5 

6 

7 

8 
9 

10 


5® 11780199 fc+C2 9* 4003471 6E +00 

5® 11 369 762E+C2 

5 *0949 13 50 E+02 

5.C5E47229E+02 

5*03276949 E +02 

5® C267C726E+02 

5®CC00l 19 3 E + 02 

5® C0CC00C7E+02 

5®COCOCOOOE+G2 

5»C0C00000 c+02 


TIME = 4*0000 DELTA TIME * .2000 

BLOCK NC TEMPERATURE CONVECTION 0 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 


5® 21673386 E + C2 1.29076652E+01 

5® 2 11072 18 £+02 

5.1851C074E+C2 

5.13385437E+C2 

5 #095 8 1996 E+02 

5.C865667 1E+C2 

5 #00007892 E+02 

5# CCCOC 09 1 E+02 

5®COCOOC 01E+02 

5.C0CCC0CCE+C2 


TIME = 6*0000 DELTA TIME = #2000 

BLOCK NO TEMPERATURE CONVECTION Q 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 


5.35321568E+C2 1.81731806E+01 

5.34520391E+C2 

5» 3085 1 149E+C2 

5® 23652 568 E + C2 

5® 1 83369 77 E + C2 

5®17048039E+02 

5®00C23170E+C2 

5#00900388E+C2 

5* 0000000 5 E+02 

5.C0CCCC0CE+02 
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IME = 8.CG0C 

DELTA TIME = 

• 2000 

BLOCK NO 

TEMPERATURE 

CONVECTION Q 

1 

5* 55223 1 17E+G2 

2* 63706500E+01 

2 

5*5405179 7 £+02 


3 

5*48656798 E+C2 


4 

5. 38256656 S+02 


5 

5.3C611226E+C2 


6 

5* 28763464 £+02 


7 

5.C0C5C513E+C2 


8 

5*0000 1092 E+C2 


9 

5.C0000QL9E+C2 


10 

5*COCOOOOOE+C2 



IME = 

1C. GOOD 

DELTA TIME = 

.2000 

BLOCK 

NO 

TEMPERATURE 

CONVECTION 0 


1 

5.83945815E+C2 

3* 82565228E+0 1 

2 

5.82227429E+C2 


3 

5. 74.382088 E+C2 


4 

5. 59 146202 £+02 


5 

5.48044705E+C2 


6 

5 *4536729 7 £+02 


7 

5.00C95304E+C2 


8 

5*00002475 E+0 2 


9 

5* CCC0005 3E+C2 


10 

5.C000C000E+C2 



IME = 

12.0000 

DELTA TIME = 

.2000 

BLOCK 

NO 

TEMPERATURE 

CONVECTION 0 


1 

6*2515211 7E+02 

5.5540G452E+01 

2 

6.22616990E+02 


3 

6.11072052E+02 


4 

5* 8 880G 374E+C2 


5 

5.72675364E+02 


6 

5*68796 108E+02 


7 

5*00165768E+02 


8 

5.GOC04933E+C2 


9 

5*00000 124E+02 


10 

5*00000001 £+02 



IME = 14.0000 

DELTA TIME = 

.2000 

BLOCK NG 

TEMPERATURE 

CONVECTION Q 


1 

6* 63559793 E+C 2 

7.99628188E+01 

2 

6*79 823567 E+0 2 


3 

6* 6 2 863480 E+0 2 


4 

6* 30391 809E + 02 


5 

6*C7051232E+02 


6 

6.01453122E+G2 


7 

5.C0274345E+02 


8 

5.G0Q09047E+C2 


9 

5*00000257 £+02 


10 

5.00CQGGG2E+G2 
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TIME 


16 « C 000 


DELTA TIME = ,2000 


BLOCK NO 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 


TIME = 18.CCG0 


BLOCK NO 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 


T IME * 2C.GC0C 


BLOCK NC 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 


TIME = 22.0000 


BLOCK NO 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 


TEMPERATURE 


7.6243431 8E+C2 
7. 57C 76597E+G2 
7. 228345878+02 
6. 866880338+02 
6» 53678 2G6E+C2 
6. 45778923 E+C2 
5. C 04 394338+02 
5.00C15680E+02 
5.Q0G0C491E+02 
5.C0C0CCG58+C2 


DELTA TIME = 


TEMPERATURE 


8.6 6C 96689 £+02 
8.5846331SE+C2 
8.2412C091E+O2 
7 • 59640 10 1 E+C2 
7. 141213 4 7E+0 2 
7.032854888+02 
5.00687C29E+02 
5.00C26098E+02 
5. CCOCC 8 85 E+C2 
5.GCC0CCC9E+C2 


DELTA TIME = 


TEMPERATURE 


1.CC148466E+03 
9.90677076E+C2 
9.424036258+02 
8.5274C9176+C2 
7.90295554S+02 
7 » 7 556C 394 E + C2 
5.C1053912E+C2 
5.C0C42130E+02 
5 .00 CG 1 525E + C2 
5.CG000017 E+C2 


DELTA TIME * 


TEMPERATURE 


1. 16823694E+C3 
1 « 153431 79E+C3 
1 .C8769 559E + C3 
9.6 7 286853 £+C2 
8.83975 80 6E+C2 
8.64354199E+02 
5.C1 593384 E + 02 
5.00C66422E+G2 
5 *00002 5 40 E+02 
5.CCC00030E+02 


CONVECTION 0 
1. 10941673S+02 


.2000 

CONVECTION Q 
1.511370206+02 


.2000 

CONVECTION 0 
2. 010991 826+02 


.2000 

CONVECTION Q 
2.551423256+02 
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IME = 

24* C COO 

DELTA TIME - 

*2000 

BLOCK 

NQ 

TEMPERATURE 

CONVECTION Q 


1 

lo 375754992 + 03 

3 » 202390326+02 

2 

U355C664C6+03 


3 

1# 26496599 E+03 


4 

1»10423689£+C3 


5 

9*957063428+02 


6 

9*703889236+02 


7 

5*023826436+02 


8 

5© CO 102799 £+02 


9 

5© 00CC4 1 17E+02 


10 

5 *000000 52 £+02 



IME = 

26®CC0G 

DELTA TIME » 

©2000 

BLOCK 

NO 

TEMPERATURE 

CONVECTION 0 


1 

1® 63 £75754 E+C3 

3,96175542E+02 

2 

1*609 1652 2E+ 03 


3 

1 *48326 229 E +03 


4 

Is 26743914E+03 


5 

1.12603677E+03 


6 

l*C9353344E+03 


7 

5*03533 19 5E+ 02 


8 

5.C01568Q1E+02 


9 

5,00CC6530E+C2 


10 

5«COC00C87E+02 



IME * 

28*0000 

DELTA TIME = 

*2000 

BLOCK 

NO 

TEMPERATURE 

CONVECTION. Q 


1 

1*96732871 E+03 

4»81465142E+02 

2 

1*9235 5248 E+ 03 


3 

1*74541101 E+03 


4 

1* 4566 361 0E+03 


5 

1* 27 5 139 59 E+03 


6 

1« 23407744 E+03 


7 

5«C 5206486E+C2 


8 

5*C0236444E+C2 


9 

5*000101158+02 


10 

5®00000 142 £+02 



IME = 30*0000 

DELTA TIME = 

*2000 

BLOCK NO 

TEMPERATURE 

CONVECTION 0 


1 

2* 401 31030 E+03 

5*911208586+02 

2 

2*333539716+03 


3 

2*066533356+03 


4 

1* 6723 80 67 E+03 


5 

1*441195078+03 


6 

1*390098846+03 


7 

5*076363146+02 


8 

5*003533876+02 


9 

5*000 156 30 £+02 


10 

5*000002266+02 
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TIME 


32 s 0000 


DELTA TINE 


2000 


BLOCK NO 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 


TIME = 34® 0000 


BLOCK NG 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 


TIME = 36 * COQC 


BLOCK NO 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 


TEMPERATURE 


2*99948 8 3 2E + C3 
2 *87620 191 £+03 
2® 464 16 1C5E+03 
1*918959388+03 
1*622 51715E+C3 
1 * 559 19665 E+03 
5# 11 142316E+C2 
5» GO 52439 1E+C2 
5»00C23734£+C2 
5«OOCQC35 5E + G2 


DELTA TIME = 


TEMPERATURE 


4® 166358 82 E+C3 
3® 79546068E+03 
2*92821333 E+03 
2* 18116858E+C3 
1® 81 381590E + C3 
l*73733323E+03 
5® 16142873 £+02 
5 ®C0 7730978+02 
5®C 00 35694E+C2 
5® 00000550 £+02 


TEMPERATURE 


5® 88A21157E+C3 
5*990470396+03 
3® 77938833 E+03 
2® 37514000E+03 
1® 9 9587906 £+C 3 
1® 911652 OC E+03 
5®2 30 91166 £+02 
5®01131404E+02 
5.00C53229E+C2 
5* 0000084 1E + 02 


CONVECTION 0 
7® 3105021 1E+02 


*2000 

CONVECTION 0 
9® 4079 20 75E +02 


CONVECTION 0 
1* 21131504E+03 


DELTA TIME = *2000 
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Case II 


FIBERGLASS HEAT SHIELD 11 DEGREE CCNE 


SCAScINP 
NO * 31* 

NHOR * 7* 

NVER - 0* 

NOCCNV - 7. 

NRADO = 7* 

N JOINT * C, 
NAIRGAP •= 0* 

IGECM = 0* 

IOIM = 2 * 

ICONVO * 3* 

ID IFF * 0, 

LINEAR * 0* 

INVERSE = C* 


COHEN 

- 

0* 







TIME 


o 

• 

o 







TIMSTOP 

- 

0.8E+C2* 







DELTAT 

* 

0.2E+CC, 







PRFREC 

- 

25, 







TEMP 

— 

0* 52E+03 , 

0.52E+C3, G 

• 52E+03 * 

0. 

52E+G3, 0. 

52E+03* 0.52E+03, 



0.52E+C3, 

0.52E+C3, 0 

• 52E+-03 , 

G. 

52E+C3, 0.52E+G3, 0.52E+03, 



G.52E+03, 

0.52E+03, C 

• 52E+03 * 

0, 

52E+C3, 0. 

52E+C3, 0.52E+03, 



0. 52E+G3 , 

0.52E+C3, 0 

• 52E+-03 , 

0. 

52E+03 , 0. 

52E+03* 0.52E+03, 



0.52E+G3, 

0.52E+03, 0 

• 52E+03 , 

0. 

52E+03, 0. 

5 26+03* 0.52E+03* 



0*5 2E+G3 , 

0.0, 0.0, 

0.0 , 0 

0, 

o 

. 

o 

o 

. 

o 

0.0* 0.0, 

0.0* 



0.0, 0.0, 

0.0, 0.0, 

0.0* 0 

• 0, 

0*0, 0.0, 

0.0, 0.0, 

0.0, 



0*0, G.O, 

0,0 , 0.0 , 

0.0, 0 

.0, 

0.0, 0.0* 

0.0, 0.0, 

0.0, 



0. 0, 0 .0 , 

0.0, 0.0, 

0.0* 0 

• 0 * 

0.0* 0.0, 

0.0, 0.0, 

0.0, 



0.0, 0.0, 

0,0* 0.0* 

0.0, 0 

.0, 

0.0* 0.0, 

0.0, 0.0, 

0.0, 



c.o, o.c* 

0,0* 0.0* 

0.0, 0 

.0, 

0.0* 0.0* 

0.0, 0.0, 

0.0, 



0. 0 , 0.0, 

0.0* 0.0* 

0.0, 





MAT 

s 

1 , 1 , 1 , 

1* 1* 2, 

2, i. 

It 

1* 1, 1* 

2* 2, 1* 

If i, 



1, 1, 2, 

2, 3, 3, 

3, 3, 

3, 

3, 3* 3, 

3, 3, 0* 

0» 0, 



Q , 0 , 0 , 

0, 0, 0* 

0, 0, 

0, 

0, 0, 0, 

0* 0, 0 * 

0, 0, 



0, C* 0, 

0 * 0 , 0 , 

0, 0, 

0, 

0 * 0 , 0 * 

0 , 0, Of 

0, 0, 



0 , 0 , 0 , 

0 * 0 * 0 , 

0, 0, 

0, 

0* 0, Q* 

Of Of Of 

0» 0, 



0, 0* Of 

0 * c * c * 

0, 0, 

0* 

0, 0, 0, 

0 , Of Of 


EMS1 

- 

C.88E+CC, 

o 

. 

o 

o 

• 

o 

c.c, 





EMS2 

S5 

O.25L+0C, 

0.0* 0.0* 

c.c, 





EMS3 

= 

0. G , 0.0 , 

© 

. 

© 

<• 

o 

. 

o 






EMS4 


0.0 » 0.0, 

O.C, 0,0* 






EMS5 

- 

c.o, c.o. 

0* C * 0.0* 






EMS6 

3 ! 

o 

• 

o 

o 

» 

o 

o 

• 

o 

o 

* 

o 
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EMS7 

- 

O.G, 

0.0, 

O.C, 

C.C, 








E^S8 

* 

c.o, 

0*0, 

0*0, 

0.0, 








EMS9 

■ 

O.C, 

0.0, 

0.0, 

0.0, 








EMS10 

= 

0.0, 

G.O, 

o.c , 

0.0, 








RHO 

5S 

0.119E+G3, 
0*0, 0 .0 » 

0.543E+C3, 

C.169E+G3, 

0.0, 

0.0, 

C.O, 

0.0, 

0.0, 

NKMPTS 

» 

7, 4 

, 5, 

0, C 

, 0, 

0, 0 

, 0, 

0, 





TKTA81 

s 

C • 565E + 03 » 
0. 2E+04 , 0 

0. 8fc+03 , 0 

.0, G.O, 0 

.9 £+03 
.0 , 

, O.iE+04, 

O.UE+04, 

0.12E+G4, 

KM1 

* 

G. 17226-04 • 
0.1111E-04, 

0* 25E—C4* 
0.U11E-04 

C.2639E-04, 
, C.O, 0.0 

0.25E-04, 

9 0.0 , 

0. 1944E-04, 


TKTAB2 

= 

C.5E+03, 0 

0 • 0 » 0,0, 

. 1E+G4 

, C.15E+04, 

0.2E+04, 

0.0, 

0.0, 

0.0, 

0.0, 

KM2 

3S 

0.6167E-01 , 
C , C , 0,0, 

0* 575E-01 , 
0.0, 

0.5444E-01 

, 0.5222E- 

01, 0 

B 0 , 0. 

0, 0.0, 

TKTAB3 

* 

C.52E+C3, 
0,0, C.O, 

0.8E+03, 0. 

0.0, 

1E+04, 

0. 12E+04, 

0.13E+04, 

0.0, 

0.0, 

KP3 

* 

C.286E-01, 
0,0, 0 ,G * 

0.3C8E-C1* 
0.0 , 0.0, 

0.303E-01, 

0.286E-01, 

0.275E-01, 

0.0, 

TKTAB4 

S 

0,0, 

C.O, 

0 »G , 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 


KM4 

= 

0.0, 

0.0, 

0.0, 

C.O, 

0*0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 


TKTA85 

* 

0.0, 

€.0, 

0.0, 

0.0, 

o.c. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 


K^5 

* 

0.0, 

0.0, 

0.0, 

0.0, 

o.c, 

0.0, 

0.0, 

0.0, 

0.0, 

0. Q, 


TKTAB6 

* 

c.o. 

C.O, 

0.0, 

0.0, 

o.c. 

0.0 , 

0.0, 

0.0, 

0.0, 

0.0, 


KM6 


0.0, 

0.0, 

O.G, 

0.0, 

0.0, 

0.0, 

0*0, 

0.0, 

0.0, 

0.0, 


TK TA87 

= 

0.0, 

0.0, 

0.0, 

0.0, 

c.o. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 


KM7 

= 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 


TKTA88 


0.0, 

c.o. 

O.G, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 


KM8 

= 

0.0, 

0.0, 

0.0, 

0.0, 

o.c. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 


TKTABS 

= 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.3, 

G.O, 


KM9 

= 

0.0, 

0.0 , 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 


TKTABIO 

ts 

c.o, 

0.0, 

o.c. 

o.c, 

o.c. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 


KMIO 

* 

0.0, 

c.o. 

o.c. 

c.o, 

c.o. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 


NCPPTS 

« 

6, 4 

9 6 , 

0, 0 

, 0 , 

0 , 0 

, 0, 

0, 





TCPTAB1 

s 

C.55E+C3, 
C.O, c.o. 

G.7E+G3, 0. 

0.0, 

9E+G3 , 

0.11E+04, 

0.12E+04, 

0.13E+04, 0.0, 

CPI 

« 

0. 2186+CO , 
0. 337E+0C , 

0.255E + CC , 

0 .0 , 0.0, 

C.296E+00, 
C.O, 0. 0 , 

0.325E+00, 

0.337E+00, 


TCPTAB2 

sc 

C.5E+C3, 0 

0.0, 0*0, 

. 1E+C4 

, 0.1SE+04, 

0.2E+04, 

0.0, 

0.0, 

0.0, 

0.0* 

CP2 

* 

0.92E-C1, 
C.O, 0*0, 

G.99E- 

01, C 

• 1C7E+00, 0 

•115E+0O. 

0.0, 

0.0, 0 

.0 , 0.0 , 
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TCPTAB3 

- 

0.52E+C3® 0# 7E + C3 , 0.SE+03, 

OallE+04® 

Oa 12E+04, 

0® 13E+04, 0.0, 



0*0, 

C « 0 , o * c , 








CP3 

— 

0. 202E + G0 ® 0.22E+G0® C.233E+00, 

0.24E+00, 0 

a 268+OG , Oa 

276E+00, 



0.0, 

0»0, 0*0® 

0.0, 







TCPTAB4 

= 

O.C, 

C *0 ® 0*0 , 

0 a 0 , OaC, 

0*0, 

0 s C , 

Oa G , 

0*0, 

0*0, 


CP4 

as 

0*0® 

0*0, 0*0, 

0 © 0 , OaC, 

0*0, 

0.0, 

OaO, 

0.0, 

OaO, 


TCPTAB5 

- 

0*0, 

C *0 , 0.0, 

0*0, 0 a 0 , 

CaO, 

0.0, 

0*0, 

OaO, 

0.0, 


CP5 

= 

Q®0» 

C.C, O.G, 

0 » G , 0 ®C , 

0.0, 

OaO, 

0*0, 

0.0, 

0.0, 


TCPTAB6 


0*0, 

o 

* 

o 

o 

* 

o 

0.0, 0*0, 

OaO* 

OaO, 

0.0, 

OaO, 

0*0, 


CP6 

- 

0*0, 

CeO, 0»0 9 

CaO, CaO, 

OaO, 

0.0, 

0*0, 

0.0, 

OaO, 


TCPTAB7 


0*0, 

o 

o 

o 

« 

o 

0*0, 0.0, 

OaO , 

0.0, 

OaO, 

0.0, 

OaO, 


CP7 

= 

0*0, 

O.G, 0.0, 

C aC , OaC, 

OaO, 

0.0, 

0.0, 

0.0, 

OaO, 


TCPTAB8 

= 

0 » 0 9 

0*0, 0*0, 

OaC, 0 a 0 f 

OaC, 

0*0, 

0.0, 

OaO, 

0.0, 


CPS 

= 

0*0, 

G *0 » 0*0, 

0*0, CaO, 

0.0, 

0.0, 

OaO, 

OaO, 

0*0, 


TCPTAB9 

3C 

c.o. 

0.0 , 0.0 , 

OaC , OaC, 

0.0, 

OaO, 

0*0, 

OaO, 

OaO, 


CP9 


0*0, 

0®0, 0 » c , 

0a0» C « G f 

0*0, 

0.0, 

OaO, 

0.0, 

OaO, 


7CPT810 

* 

C.G® 

0*0, 0*0, 

0o Of 0 a 0 f 

0 *0, 

0.0, 

OaO, 

OaO, 

0.0, 


CPIO 

= 

0*0, 

0*0, 0*0, 

CaO, CaO, 

0.0, 

OaO, 

OaO, 

0.0, 

0.0, 


WO 

- 

0* 2E- 

01, 0.2E-Q1 

, 0.2E-01, 

0.2E- 

01, 0 

.28-01 

, Oa 

2E-0I, 

0.2E-01, 



0.4E— 0 1 , 0.4E-C1 

, C.4E-C1, 

0* 4E- 

01, 0 

*4E-Q1 

, Oa 

4E-01, 

0.4E-01, 



G. 4E- 

01, C.4E-C1 

, G.4E-01, 

0.4E- 

01, 0 

*4E-01 

, 3# 

4E-01, 

0.4E-01, 



0.2E- 

>01, Q.2E-G1 

, 0.2E-01, 

C.2E- 

01, 0 

a 2E“01 

, 0. 

3E-01, 

0.38-01, 



0.3E- 

01, 0. 3E-G1 

, C.3E-C1, 

0.0, 

0*0, 

0*0, 

0.0, 

0.0, 

0*0, 



0*0, 

0.0® 0*0, 

0® Q , 0.0, 

0.0, 

0*0, 

0*0, 

OaO, 

0.0, 

0.0, 



0*0, 

0*0, 0.0, 

0 a 0 , 0.0, 

OaO, 

OaO, 

0*0, 

OaO, 

OaO, 

0.0, 



0® Q , 

0*0 , 0*0, 

0®C, c.o. 

OaO, 

0*0, 

0.0* 

OaO, 

0.0, 

0.0, 



0*0, 

0*0, 0*0 , 

Oa 0 , OaC, 

OaO, 

OaO, 

0.0, 

OaO, 

0*0, 

OaO, 



0*0, 

0*0, 0.0, 

CaO, 0 « 0 , 

OaO, 

OaO, 

0.0, 

OaO, 

0®0, 

0*0, 



0*0, 

0*0, 0*0, 

0®C, p ®c , 

OaO, 

OaO, 

0*0, 




RAO 

* 

0*0, 









LEN 

s 

C * 2E+GQ , 0® IE +00 

, G.IE+CO, 

0.5E- 

01, 0 

* 28-01 

, 0® 

2E-G1, 

0.3E-01, 



0* 2E + 00 , 0.1E+CC 

, 0.1E+00, 

0a5E~ 

01, 0 

.2E-01 

, 0® 

2E-01, 

0*38-01, 



0* 2E+C0 9 0* 1E+Q0 

, 0.1E+0Q, 

0.5E- 

01, 0 

* 28-01 

, 0* 

2E-01, 

G® 3E-0 1 ? 



0* 1E+00 , 0.5E-01 

, C.2E-G1® 

Ga2E“ 

01, 0 

. 38-01 

, 0. 

1E+00, 

0.5E-01, 



0® 2£- 

■01, 0.2E-C1 

® Ca3E-01® 

0.0, 

0.0, 

0*0, 

0*0, 

0.0, 

0*0, 



0.0, 

0*0, 0*0, 

0*0, OaO, 

OaO, 

OaO, 

0*0, 

OaO, 

0.0, 

0*0, 



0.0, 

0*0, 0® c , 

0® C * OaO, 

OaO, 

0*0, 

0*0, 

OaO, 

OaO, 

0.0, 



0.0, 

0 ®0 , 0*0 , 

OaO* OaO, 

OaO, 

0*0, 

0*0® 

OaO, 

0.0, 

0.0, 



0.0, 

C • 0 , 0. 0 , 

OaC, 0*0, 

OaO, 

OaO, 

OaO, 

0.0, 

OaO, 

0.0, 



0*0, 

0.0, 0 * c • 

OaC, OaO, 

OaO, 

0*0, 

OaO, 

0*0, 

OaO, 

0.0, 



0*0, 

0 * 0 , 0*0 , 

OaC, 0.0, 

0*0, 

0*0, 

OaO, 




THETA 

as 

0.0, 









VOL 

sc 

C.4E- 

02, 0. 2E-C2 

, 0*2E-C2, 

CalE- 

02, 0 

.48-03 

, 0. 

48-03, 

0.6E-03, 



0. 8E- 

>02, G.4E-C2 

t 0.4E-Q2, 

0.2E- 

02, 0 

.8E-03 

, 0* 

8E-03, 




C.12C 

-02, 0.88-02, G.4E-02, 

0.4E 

-02, 

0 .28— 02 , 0 

» 8E-Q3 » 




0.8E- 

03, 0* 12E-C2 , 0.2E-02, 

0 a 1 E 

-02, 

0.4E-03, 0 

.4E-03, 




0.6E- 

■03, 0.3E-02 

, 0.158-02, 

0.6E 

-03, 

0*68-03 , 0 

.9E-03, 

0*0, 



0.0, 

0.0, 0*0, 

0.0, 0.0, 

0.0, 

OaO, 

0*0, 

0.0, 

OaO, 

0*0® 



0.0, 

0 » 0 ® 0*0, 

0.0, OaO, 

0.0, 

0.0, 

0«0, 

OaO, 

OaO, 

0*0, 



0*0, 

0.0, 0.0, 

OaO, 0.0, 

OaO, 

0.0, 

0.0, 

0.0, 

OaO, 

OaO, 



0*0, 

CaO, 0.0, 

0®0, 0.0, 
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0.0, 

o.c, 

o.c, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

c.o. 

0.0, 

c.o. 

o.c. 

0.0, 

0.0, 

0.0, 

0.0, 

o.c. 

0.0, 

c.o. 

o.c. 

0.0, 

o.c. 

0.0, 

0.0, 

0.0, 

o.c. 

0.0, 

c.o. 

c.o, 




0.0, 

0.0, 

0.0, 

o.c. 

o.c. 

0.0, 

0.0, 

0.0 , 

0.0, 

0.0, 

0.0, 

c.c, 

o.c, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

o.c, 

0.0, 

c.o. 

0.0, 

c.o. 

0.0, 

o.c. 

0.0, 

0.0, 

0.0, 

o.c. 

0.0, 

0.0, 

0.0, 

c.o, 

o.c. 

o.c. 

c.o. 

0.0, 

0.0, 

0.0, 

c.o. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

o.c, 

0.0, 

c.o. 

c.c, 

0.0, 

c.c, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0 . 0 , 

o.o, 

o.c. 

c.o, 

c.o, 

0.0, 

c.c. 

0.0, 

0.0, 

c.o, 

o.c. 

c.o. 

o.c. 

0.0, 

c.o. 

o.c. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

o.c. 

0.0, 

0.0, 

c.o. 





0 , 


0 9 0* 0» Of 

c, 


0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

c.o, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

o.c. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

c.o. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

c.o. 

0.0, 


0.0, 

0.0, 

0.0, 

c.o, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0? 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0=0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

c.o, 

0.0, 

O.Q , 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

o.c, 

0*0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0*0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

c.o. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

c.o, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 


0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

c.o. 

0.0, 

0.0, 

0,0, 

0 . 0 , 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

c.o. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0 , 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

c.o. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

c.o, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

c.o. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

O.G? 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 
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TINV 


TEMINV = 


fEMINVl 


0 * 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 * 0 , 

O.Of 

0 * 0 , 

0 * 0 , 

0.0 

0 * 0 , 

0 . 0 , 

o . c . 

0 * 0 , 

0 . 0 , 

0 * 0 , 

0 * 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0*0 

0 * 0 * 

C a 0 * 

o . c , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 * 0 , 

0 . 0 , 

0 . 0 , 

0 * 0 , 

0.0 

0 * 0 , 

0 * 0 , 

0 * 0 , 

0 * 0 , 

o.c. 

0 . 0 , 

0 , 0 , 

0 , 0 , 

0 . 0 , 

0 . 0 , 

0*0 

0 * 0 , 

o.c. 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0*0 

0 * 0 * 

0 * 0 , 

0 * 0 , 

o.c, 

c.o. 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 * 0 , 

0 . 0 , 

0*0 

0 * 0 , 

0 * 0 , 

0.0 , 

o.c. 

0 . 0 , 

c.o, 

o.c, 

0 * 0 , 

0 . 0 , 

0 . 0 , 

0.0 

0 * 0 » 

0 . 0 , 

0 . 0 , 

o.c, 

o.c. 

0 * 0 , 

0 . 0 , 

0 * 0 , 

0 * 0 , 

0 . 0 , 

0*0 

0 * 0 , 

c.o. 

0 * 0 , 

o.c. 

o.c. 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0.0 

0 * 0 , 

0 . 0 , 

0 * 0 , 

0 . 0 , 

o.c. 

0 * 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0.0 

0 * 0 , 

0 . 0 , 

0 . 0 , 

0 * 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 * 0 , 

0.0 

0 * 0 , 

C . G , 

0 * 0 , 

0 . 0 , 

c.o. 

0 . 0 , 

0 * 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0*0 

0 * 0 , 

0 . 0 , 

0 * 0 , 

o.c. 

0 * 0 , 

c.o. 

0 * 0 , 

0 . 0 , 

O.Of 

0 * 0 , 

0*0 

0 * 0 , 

0 . 0 , 

0 * 0 , 

0 * 0 , 

0 * 0 , 

0 * 0 , 

0 * 0 , 

O.Of 

0 . 0 , 

0 * 0 , 

0.0 

0 * 0 , 

c.o. 

0 * 0 , 

0 * 0 , 

C . G , 

0 . 0 , 

0 * 0 , 

0 . 0 , 

0 . 0 , 

0 * 0 ? 

0*0 

0 * 0 , 

0 * 0 , 

0 . 0 , 

0 * 0 , 

0 * 0 , 

c.o. 

O.G , 

0 . 0 , 

0 * 0 , 

0 . 0 , 

0*0 

0 * 0 , 

0 . 0 , 

o.c. 

0 . 0 , 

c.o. 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0*6 

0 * 0 , 

0 * 0 , 

0*0 , 

0 * 0 , 

c.o, 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 * 0 , 

0*0 

0 * 0 , 

c.o, 










0 * 0 , 

c.o, 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0*0 

0 * 0 , 

0 . 0 , 

0 * 0 , 

0 . 0 , 

c.o. 

0 . 0 , 

0 . 0 , 

0 * 0 , 

0 . 0 , 

0 . 0 , 

0.0 

0 * 0 , 

0 * 0 , 

0 * 0 , 

0 * 0 , 

C.Ot 

0 . 0 , 

0 . 0 , 

0 * 0 , 

0 * 0 , 

0 . 0 , 

0.0 

0 * 0 , 

0 . 0 , 

0 * 0 , 

c.o. 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0.0 

0 * 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

o.c. 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0.0 

0 * 0 , 

0 * 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 * 0 , 

0 . 0 , 

0.0 

0 * 0 , 

0 * 0 , 

0 . 0 , 

0 * 0 , 

o.c, 

0 . 0 , 

0 . 0 , 

0 * 0 , 

0 . 0 , 

0 . 0 * 

0.0 

0 * 0 , 

c.o. 

o . c . 

0 . 0 , 

c.o, 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 * 0 , 

0.0 

0 * 0 , 

0 . 0 , 

o . c , 

0 * 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0.0 

0 . 0 , 

0 * 0 , 

0 * 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0.0 

0 . 0 , 

0 * 0 , 

0 . 0 , 

0 . 0 , 

c.o, 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0.0 

0 * 0 , 

c.o. 
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0 . 0 , 

0 . 0 , 

0 * 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0.0 

0 * 0 , 

c.o. 

0 * 0 , 

0 . 0 , 

o.c, 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0.0 

0 * 0 , 

0 . 0 , 

0 * 0 , 

0 . 0 , 

o.c. 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 * 0 , 

O.Of 

0*0 

0 * 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 * 0 , 

0 . 0 , 

0.0 

0 * 0 , 

0 . 0 , 

0 * 0 , 

0 . 0 , 

0 * 0 , 

0 * 0 , 

0 . 0 , 

0 . 0 , 

0 * 0 , 

0 . 0 , 

0.0 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 * 0 , 

0 * 0 , 

0 . 0 , 

0 . 0 , 

0 * 0 , 

0 . 0 , 

0.0 

0 * 0 , 

0 * 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 * 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0.0 

0 . 0 , 

c.o. 

0 * 0 , 

0 . 0 , 

c.o, 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0.0 

0 * 0 , 

0 * 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0.0 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 , 0 , 

0 . 0 , 

0 . 0 , 

0.0 

0 . 0 , 

0 . 0 , 

0 , 0 , 

0 . 0 , 

0 * 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0*0 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 * 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 * 0 , 

0.0 

0 . 0 , 

0 * 0 , 

0 . 0 , 

0 . 0 , 

o.c, 

0 . 0 , 

0 . 0 , 

0 * 0 , 

0 . 0 , 

0 * 0 , 

0*0 

0 . 0 , 

o.c. 

0 . 0 , 

0 . 0 , 

0 * 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 * 0 , 

0*0 

0 . 0 , 

c.o. 

0 . 0 , 

c.o. 

c.o. 

0 * 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0.0 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

O.Of 

0 . 0 , 

0 . 0 , 

0 . 0 , 

O.Of 

0 . 0 , 

0.0 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

c.o, 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0.0 

0 . 0 , 

0 . 0 , 

0 * 0 , 

0 . 0 , 

0 . 0 , 

0 * 0 , 

O.Of 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0.0 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 * 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0.0 

0 . 0 , 

0 . 0 , 

0 * 0 , 

o.c. 

o.c. 

0 * 0 , 

0 . 0 , 

0 . 0 , 

0 * 0 , 

0 . 0 , 

0.0 

0 . 0 , 

0 . 0 , 

0 * 0 , 

0 . 0 , 

0 . 0 , 

0 * 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0.0 

0 . 0 , 

0 . 0 , 

0 * 0 , 

0 . 0 , 

0 . 0 , 

0 * 0 , 

0 . 0 , 

0 . 0 , 

. 0 . 0 , 

0 . 0 , 

0*0 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

o.c. 

0 * 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0.0 

0 * 0 , 

o.c, 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0.0 

0 * 0 , 

0 * 0 , 

0 . 0 , 

c.o. 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

O.Of 

O.Of 

0.0 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 








0 . 0 , 

c.o, 

0 * 0 , 

0 * 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0*0 

0 . 0 , 

0 * 0 , 

o.c. 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0.0 

0 , 0 , 

0 * 0 , 

0 . 0 , 

0 . 0 , 

0 * 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

O.Of 

0.0 

0 . 0 , 

c.o. 

0 . 0 , 

0 . 0 , 

o.c. 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

O.Of 

c.o 

0 * 0 , 

c.o. 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0.0 

0 * 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 * 0 , 

0 . 0 , 

0.0 

0 . 0 , 

0 . 0 , 

0 * 0 , 

0 . 0 , 

0 . 0 , 

0 * 0 , 

0 , 0 , 

0 . 0 , 

0 * 0 , 

0 . 0 , 

0.0 

0 , 0 , 

0 . 0 , 

0 * 0 , 

0 . 0 , 

0 . 0 , 

0 * 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0.0 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0 . 0 , 

0.0 


0,0 
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TEMINV2 


TEMINV3 = 


TEMINV4 = 


NAVPTS * 
TIMEAV = 


ALTTA8 = 


VELTAB = 


C.O, 

C •» 0 i 

0*0, 

0.0, 

o.c. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0 , 

0*0 , 

0*0, 

o.c. 

0*0, 

c.o. 

c.o? 

0.0, 

0.0, 

0.0? 

c.o. 

0.0, 

0.0, 

0*0, 

0*0, 

0.0, 

0.0, 

0.0, 

c.o, 

0.0, 

0.0, 

0*0, 

0.0, 

o.c , 

0*0, 

0.0, 

O.C , 

0.0, 

0.0? 

0.0, 

0.0, 

0*0 , 

0*0, 

0.0, 

0.0, 

0.0, 

0.0, 

0*0, 

o.c. 

o.c. 

0.0, 

0.0, 

0.0? 

0*0, 

0.0, 

0. Q , 

0*0, 

c.o, 

0.0, 

o.c. 

o.c, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0*0, 

c.c, 

0.0, 

c.o. 

c.o. 

0.0, 

0.0, 

0.0, 

0.0, 

O.Of 

0*0? 

C.% 

0.0, 

0*0, 

o.o. 

0.0, 

0.0 , 

0.0, 

0.0, 

0.0, 

0*0, 

0*0? 

0.0, 

c.c. 

0.0, 

o.c. 

c.c, 

0.0, 

0.0, 

0.0, 

O.Of 

0*0, 

0*0? 

0.0, 











c.o? 

c.o. 

o.c. 

0.0, 

0.0, 

0.0, 

0.0, 

0*0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

o.c, 

0.0, 

0.0, 

c.o, 

0.0, 

0.0, 

O.Of 

0*0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

c.o. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0*0, 

0.0, 

0.0, 

0.0, 

0.0, 

c.o. 

0.0, 

0*0 ? 

0.0, 

0.0, 

0.0, 

0*0, 

0.0, 

0.0, 

0.0, 

0.0, 

c.o. 

0.0, 

0*0, 

0*0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

c.o. 

c.o. 

0.0, 

0*0, 

0*0, 

0.0, 

0.0, 

0*0, 

0.0, 

0.0, 

0.0, 

o.c. 

0.0, 

0.0, 

0*0, 

0.0, 

0*0, 

0.0? 

0. Q , 

c.o, 

0.0, 

0.0, 

0.0, 

c.o, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0? 

c.o? 

0.0, 

0.0, 

0.0, 

c.c. 

0.0, 

O.Of 

0.0? 

0.0, 

0.0, 

0.0, 

0.0, 











0.0, 

c.o. 

0.0, 

o.c. 

o.c, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

O.Of 

0.0, 

0*0, 

0.0, 

0.0, 

c.o. 

0*0 , 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

c.o. 

0.0? 

O.Of 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0 , 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

o.c. 

0.0, 

c.c. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

c.o. 

c.o, 

0.0, 

0.0, 

0.0, 

0*0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

c.o. 

0.0, 

0.0, 

0.0, 

0.0, 

0*0? 

0.0, 

0.0, 

c.o. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0*0, 

0.0, 

0.0, 











18, 











C .0 , 

0.5E+01, C 

» IE+C2 

, 0*156+02, 

0.2E+02, 

0.256+02, 0 

.36+02, 

C. 326+02, 

0.35E+02, C 

.4E+02 

, 0.456+02, 

0.5E+02, 

0* 55E+02, 

0.6E+02, 0 

» 65E+02 , 0. 

76+02? 

0.75E+02, 

0.86+02, 0 

.0, 0 

• 

o 

o 

» 

o 

0.0, 

c.o. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0? 

0.0, 

0.0, 

0.0, 

0.0, 

c.o. 

0.0, 

0.0, 

0*0, 

0.0 , 

0.0, 

0.0, 

0.0, 

c.c. 

0.0, 

0.0, 

0.0, 

0*0, 

0.0, 

0.0, 

0.0, 

O.Of 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

G.C, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

O.Of 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0*0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0*0, 

0.0, 

0.0, 










0*0, 

C. 36+04, 0 

» 12E+0 

5, 0. 

276+05 

» 0.436+05, 

0.676+05, 


0. 916+05 , 

O.a 101E+06 ? 

C. 1176+06, 

0.142E+06, 

0.1646+06, 


0. 182E+C6? 

0® 199E+C6 , 

C.212E+06, 

0*2246+06, 

0.2326+06, 


Ci® 238E+06 , 

0.244E+C6, 

0.0, 

0.0? 

0.0, 

0.0, 

0.0, 

0*0, 

0*0, 

0.0, 

0.0, 

0.0, 

o.c. 

o.c. 

0.0? 

0.0? 

0.0, 

0.0, 

0*0, 

0*0, 

0.0, 

0.0, 

0.0, 

0.0, 

c.o, 

0.0, 

0.0, 

0.0, 

0.0, 

0*0, 

O.Of 

0. 0 , 

c.o. 

0.0, 

0*0, 

0*0, 

0.0, 

0.0, 

0.0? 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0? 

0*0, 

0.0, 

0.0, 

0.0? 

0.0, 

0.0, 

0.0, 

0.0, 

c.o. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

o.c, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

C.O, 

0.0, 

0.0, 

0.0, 

0*0, 

0.0, 



0.0, 

0.7 1E+G3 , 

0.16E+C4? 0 

« 275E+04, 0*46+04 

, 0*546+04, 


0.636+04? 

Q.64E+04 , 0 

•625E+04, 0 

.5956+04, 0 

*576+04, 0* 

546+04, 

0*56+04, 0 

.455E+G4 9 C 

.425E+04, 0 

.46+04, 0® 3SE+04 , 

0.386+04, 

0.0, 

0.0, 

0.0, 

o.c. 

C.O, 

0.0, 

0.0, 

0*0, 

0.0, 

0.0, 

0.0, 

0.0, 

c.c, 

O.C, 

o.c? 

C.O, 

0.0, 

0.0, 

0*0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

O.C, 

0.0, 

0.0? 

0.0, 

0.0, 

0.0, 

0*0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0? 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

c.c, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

c.o. 

0.0, 

0.0, 

0.0, 

c.o, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

o.c. 

0.0, 

c.o. 
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NRATPT 


10 


MFSTAB = 0.0, G * 1E+0X » G.XC5E+GX, O.X2E+01, 0.2E+01, 0.3E+01, 0.4E+01, 

0.5E+01, 0.6E+01 , C.7E+C1, C.O, 0.0, 0.0, 0.0, 0.0, 0.0, 

0.0, 0.0, 0.0, 0.0, O.C , 0.0, 0.0, 0.0, 0*0, 

VERTAB * O.XE+Ol, O.XE+CX, 0.9C52E+00, 0.9727E+00, 0.9815E+00, 


0. 988E+00 » 

0.9903E+00, 

0.9922E+00 

, 0. 

99330+00, 0. 

9932E+00, 

0.0, 

O.C, 

O.C, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 0.0 

0.0, 

c.o. 

O.C, 

0.0, 

O.C, 

c.o. 

0.0, 

0.0, 

0.0, 

0.0, O.C 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

G.O, 

0.0, 

O.C, 

0.0, 

c.o. 

O.C, 

0.0, 

0.0, 

0.0, 0.0 


MACTAB O.XE+Gl, 0.1E + 01, 0.958E+00, 0.965E+00, 0.967E+00, 0.963E+00, 


0.96XE+00, 

0.954E+0G, 

C.946E+00, 

0. 937E+Q0, 

c.o, 

0.0, 

0.0 

0.0, 

O.C, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0 

0.0, 

C.O, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

c.o, 

0.0, 

0.0 


REYTAB = 0.1E+01, 0.IE+01, Q.S9C6E+00, Q.995E+00, 0.XC37E+0X, 0.1Q9E+01, 

0. 1181E+01 , 0. X274E+0X , C.I386E+01, O.X502E+OX, 0.0, 0.0, 0.0, 

0.0, 0.0, O.C, 0.0, 0.0, 0.0, 0.0, 0.0, 0*0, 0.0, 0.0, 

0 . 0 , 0 . 0 , 0 . 0 , 0 . 0 , 0 . 0 , 0 * 0 » 0 . 0 , 0 . 0 , 0 . 0 , 0 . 0 , 0 . 0 , 

0 . 0 , 0 . 0 , 0 . 0 , 0 . 0 , 0 . 0 , 0 . 0 , 0 * 0 , 0 . 0 , 0 . 0 , 0 . 0 , 0 . 0 , 

0.0, G . 0, 0.0, 0.0, 

TEMTAB = 0.1E+Q1, 0.XE+C1, 0.XQX5E+0X, 0.1016E+OX, 0.X03E+01, 

0.X053E+01, 0. X062E+GX » 0.108XE+0X, 0.X102E+G1, 0.X124E+0X, 



0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

C.O, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 


0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 


0.0, 

0.0, 

0.0, 

O.C, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

c.o, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

RHQTAB * 

O.XE+OX, 0 

.XE+CX 

, c. 

XC38E+QX, 0. 

X04E+01, 0. 

X08E+Q1 

0. 

X X47E+01 


0.X248E+0X, 

0.X363E+GX, C. 

1502E+G X , 0. 

X653E+CX, 0. 

0, 0 

•0, 0.0 


0.0, 

0.0, 

0.0, 

O.C, 

O.C, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 


0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

O.Of 

0.0, 

0.0, 


0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

O.C, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

NRATAB « 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

c.o, 

0.0, 

O.C, 

0.0, 

0.0, 

0.0, 


0.0, 

0.0, 

0.0, 

0.0, 

O.C, 

0.0, 

0.0, 

0.0, 

O.C, 

c.o. 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

VERTABX = 

O.XE+CX, 0 

.XE+C1 

, 0. 

9652E+00, 0. 

9727E+00, 0 

.9815E+00, 




0.988E+00, 

0.990 3E+0G 

) C.9922E+00 

, 0.9933E+00, 0. 

9932E+0Q, 0.0* 


0.0, 0.0, 

0.0, 0.0, 

0.0, 

0.0, 

0.0, 

O.C, 

0.0, 

0.0, 

0.0, 

o 

« 

o 

0.0, 

0.0, 

VERTAB2 = 

0.0, O.C, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 


0. 0 , 0.0, 

0.0, 0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

MACTAB1 = 

0.1E+01, 0 

. XE+G1 

, 0. 

S58E+C0 

, 0.965E+00 

, 0. 

967E+00 

, 0. 

963E+00, 


0.96XE+00, 

0.954E+00, 

0.946E+0G, 

0.937E+00, 

0.0, 

0.0, 

0.0, 


0.0, 0.0, 
0.0, 

0.0, 

0.0, 

0.0, 

C.O, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

MACTAB2 = 

0*0, 0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 


0.0, 0.0 , 

0.0, 0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 

0.0, 


REYTABX * G.1E+01, O.XE+OX, 0.9906E+00, 0.995E+00, 0.X037E+0X, 0.X09E+01, 

0.XX8XE+0X, 0. X274E+0X , 0.X386E+0X, 0.X502E+0X, 0.0, 0.0, 0.0, 

0 . 0 , 0 . 0 , 0 . 0 , 0 * 0 , 0 . 0 , 0 . 0 , 0 . 0 , 0 . 0 , 0 * 0 , 0 . 0 , 0 . 0 , 

0 . 0 * 

REYTAB2 = 0.0, 0*0, 0.0, 0.0, O.C, 0.0, 0.0, 0*0, 0*0, 0.0, 0.0, 

0 * 0 , 0 * 0 , 0 * 0 , 0 . 0 , 0 . 0 , 0 . 0 , 0 * 0 , 0 . 0 , 0 . 0 , 0 * 0 , 0 * 0 , 

0.0, 0*0, 0.0, 
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TEMTABl * 

0. 1E+0 1 9 0 

» 1E+01 

* 0. 1015E+01 * 0. 

1016E+0 1 * 0 

. 103E+01 * 



0 * 1053E+0 1 * 

0. 1062E+0 1 

* c. 

1081E+01* 0. 

1 102E+01 * 0.1124E+01, 


0.0, 0.0* 

0*0* 0.0* 

0.0, 
0 . c * 

0.0* 

0.0* 

0.0* 

0.0, 

o 

• 

o 

0.0, 

o 

. 

o 

o 

. 

o 

0.0, 

TEMTAB2 = 

0*0* 0.0* 

0.0* 

0.0, 

0.0, 

0.0* 

0.0* 

0.0, 

0.0* 0.0* 

0.0* 


0*0* 0.0* 

0*0* 0.0* 

0.0, 

C.O* 

0.0, 

0.0* 

0.0* 

0.0* 

0.0* 

0.0* 0.0* 

0.0* 

RHQTAB1 = 

0.1E+C1* 0 

. 1E+C1 

* C.1C38E+01, 0. 

104E+01* 0. 

108E+01 * 0. 

1147E+01 


0. 1248E+0 1 * 

0* 1363E+01 

* c . 

1502E+C1* 0. 

1653E+C1 * 0.0* 0 

. 0* 0.0 


0*0* C.O* 
0*0* 

0.0* 

0,0* 

0.0, 

0.0, 

o 

• 

o 

0.0* 

o 

. 

o 

o 

. 

o 

0.0* 

RHQTAB2 * 

0*0* C.O* 

0.0* 

0.0* 

c.c. 

0.0* 

0.0, 

0.0* 

0.0* 0.0* 

0.0* 

$END 

0.0* 0.0* 

0.0* 0.0* 

0.0* 

0.0* 

0.0* 

o.c. 

0,0* 

o.c, 

0.0* 

0.0* 0.0* 

0.0* 


FIBERGLASS HEAT SHIELD 11 DEGREE CCNE 


TIME = 5.CCG0 DELTA TIME = .2000 


BLOCK NO 

TEMPERATURE 

CONVECTION Q 

H * AREA 

T (RECOVERY I 

1 

5. 208 1663 A E+0 2 

9.58868875E-02 

3. 89834461E— 03 

5.45413456E+02 

2 

5.208C8338E+02 

4.75935792E-02 

1.93431095E-03 

5.45413472E+02 

3 

5. 20 8030 56 E+C 2 

4.73714066E-02 

1.92485109E-03 

5.4541 348 2 E +0 2 

4 

5.20799215E+02 

2. 3604775 7E—0 2 

9. 58987258E— 04 

5 .4541 3490 E+02 

5 

5.2075742 1E+02 

9.42710033E-03 

3. 82965269E—04 

5 #4 54 13493 E+02 

6 

5. 202 3 60 4 5 £+02 

9.63516064E-03 

3.82674981E-04 

5. 45414489E+02 

7 

5. 20235851E+02 

1.44361504E-02 

5.73349128E— 04 

5 .454 14490 E+02 

8 

5.20C001C7E+02 




9 

5.200001C4E+C2 




10 

5 .2000010 1E+02 




11 

5. 20000099 E+02 




12 

5.200GC316E+C2 




13 

5. 2CC97 500 £+02 




14 

5. 2009 752 1E+ 02 




15 

5.20G00000E+C2 




16 

5.200CCOCCE+02 




17 

5.2000000CE+02 




18 

5.19959999E+C2 




19 

5. 2GCQC050E+C2 




20 

5.2 00 31885 E+C2 




21 

5. 20032146E+C2 




22 

5.19999948 E+02 




23 

5. 20G0G454E+C2 




24 

5 .20004562 E+02 




25 

5.20012324E+C2 




26 

5. 20C 14705 E+02 




27 

5.19999942E+02 




28 

5. 200002 14E+0 2 




29 

5.20002149E+02 




30 

5. 20C 040 84 E+02 




31 

5. 2000 53 15 £+02 
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TIME * iC®GOOO DELTA TIME « *2000 


BLOCK NO 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 


TIME = 15*0000 


BLOCK NO 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 


TEMPERATURE 


5.39C82606E+C2 
5* 389 48 365 E+02 
5*38662792 E+02 
5®3880C484E+C2 
5* 38686105E+02 
5.23412262E+02 
5*234081116+02 
5* 2002C097E+02 
5 *2001594 4 E+02 
5* 20G15846E+C2 
5© 200 1978 3 E +02 
5© 200 32033E+C2 
5© 21963883E+02 
5© 21965115 £+02 
5» 20C00C1 3E+C2 
5# 20C0C012E+G2 
5® 20000C27E+02 
5® 20000 143E+02 
5* 20006277E + C2 
5® 2 1CG7115E+G2 
5*210 18889E+C2 
5# 20C151C6B+C2 
5.20108842E+C2 
5.2C3C9272E+C2 
5© 20 554383E+C2 
5*20647 155 E+C2 
5©20C14812E+C2 
5* 2009S885E+C2 
5* 202 359 1 8 E+ 02 
5® 20 3320 77 E+ 02 
5®204G1912£+02 


DELTA TIME = 


TEMPERATURE 


6©C5263040E+02 
6* 047 25993 E+ 02 
6® 043 83309E+02 
6*04133285 E+ 02 
6® 03402164 E+02 
5® 33801208E+02 
5® 33781291 E+ 02 
5®20151604E+02 
5® 201 5C565E+02 
5.201499C2E+02 
5® 20149505 E+ 02 
5*20238728E+02 
5* 29C 88718E+02 
5* 2909 59 70 E+ 02 
5® 20000 155 £+02 
5* 20C0C154E+C2 
5® 2000C504E+02 
5© 20002073 E+ 02 
5.20C55839E+02 
5®25481168£+02 
5® 25 54 7585 E+ 02 
5.202089536+02 
5.20967924E+02 
5® 22148585 E+ 02 
5® 2 34 1036 1E+ 02 
5®23916931E+G2 
5® 20 207404 E+ 02 
5® 2092221 5E+C2 
5*2 179C719E+G2 
5© 223567 15 E+ 02 
5.22776174E+02 


CONVECTION 0 


7 © 4683548 3E— 0 1 
3.70940335E-01 
3® 69 36063 6E“*01 
1* 8410555 8E-01 
7.35890458E-02 
8® 28545569E-02 
1. 2414079 1E“01 


.2000 


CONVECTION Q 


2® 0533696 7E +00 
1 *0202055 1E+ 00 
1* 01607194E+00 
5* 0653212 2E-01 
2.02722464E-01 
2.47405236E-01 
3»7068381 2E-01 


H * AREA 


5.84173630E-03 
2® 8984143 2 £—03 
2.88412222E-03 
1 » 43686669 E—03 
5*73814126 E~ 04 
5*76665038 E“0 4 
8® 6398645 7 E“ 04 


H * AREA 


5® 42 783 84 IE- 03 
2.69287949E-03 
2.67948832E-03 
1* 33487762E-03 
5.33186G52E-04 
5® 4725721 7E“ 04 
8®19910551E"*04 


T (RECOVERY! 


6 ® 6692738 56+02 
6® 66928803 E+02 
6® 6692 9707 E +02 
6®66930366E+02 
6.66931546E+02 
6® 67091784E+02 
6® 67091 82 8E+02 


T (RECOVERY) 


9® 8 356643 1E+02 
9© 83579005E+02 
9*83587 028E+0 2 
9.83592881E+02 
9.83611779E+02 
9*858 83390E+02 
9 »8 588403 7 E+02 
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TIME = 20.COOO DELTA TIME = ,2000 


BLCCK NG 

TEMPERATURE 

CONVECTION 0 

H * AREA 

T (RECOVERY! 

1 

7 • 1950 1 152 £ + 02 

3,210414886+00 

3,779209306-03 

1,569394956+03 

2 

7,167306526+02 

1,594914966+00 

1® 874803306-03 

1,569441216+03 

3 

7,179833166+02 

1# 58835080E+00 

1,865383746-03 

1,569470746+03 

4 

7 » 174 363336+02 

7,917897016-01 

9,292695376-04 

1,569492356+03 

5 

7o 15C1C4876+02 

3,173439806-01 

3® 71 34662 7E— 04 

1,569586666+03 

6 

5,503581056+02 

4,029579256-01 

3®91775469E— 04 

1 o 5789011 3E+03 

7 

5® 50303022 E+C2 

6,037441296-01 

5® 8 69 5 60 1 2 E— 04 

1,578905026+03 

8 

5® 20 5 5 2478 E+C 2 




9 

5®2C548B77E+C2 




10 

5,205465826+02 




11 

5® 205 45344 E +02 




12 

5, 20 6632406+02 




13 

5® 421 273926+02 




14 

5® 42 146416 £+02 




15 

5® 2000C804 £+02 




16 

5® 200C080C E+C2 




17 

5® 2000 34 18 £+02 




18 

5® 20 Oil 56 86+02 




19 

5® 20228485 E+ 02 




20 

5® 35022358E+02 




21 

5® 35201158£+C2 




22 

5® 210930616+02 




23 

5®23745059E+C2 




24 

5® 2 70 4 79 8 7 £+02 




25 

5,302449606+02 




26 

5® 3 158 10 50 E + C 2 




27 

5.210893326+C2 




23 

5® 236328956+02 




29 

5,261920566+02 




30 

5.27769267E+C2 




31 

5,289490746+02 





IME = 25,0000 

DELTA TIME = 

,2000 



BLOCK NC 

TEMPERATURE 

CONVECTION Q 

H * AREA 

T (RECOVERY} 

1 

8, 397 37 644 £+02 

2.97686418E+00 

1,760060396—03 

2,531079716+03 

2 

8,379072916+02 

1.478195996+00 

8,729910466-04 

2,531161766+03 

3 

8* 367364$ 8E+ 02 

1, 47167297E+0G 

8.68512313E— 04 

2.53121415E+03 

4 

8*358778116+02 

7, 3346951 9E-01 

4,326296896-04 

2.53125272E+03 

5 

8® 3QC7S765E+C2 

2.94288380E-01 

1,729654506-04 

2.53150847E+03 

6 

5.630707986+02 

3.657772516-01 

1,836616566-04 

2,5 5465 28 1 E+0 3 

7 

5.62967860E+C2 

5.480314076-01 

2,751578156-04 

2.55466636E+03 

6 

5,213308476+02 




9 

5 , 2 1322456E+C2 




10 

5,213171176+02 




11 

5,213145996+02 




12 

5, 220 4S 8 306+02 




13 

5,547525596+02 




14 

5,548219446+02 




15 

5,200026196+02 




16 

5® 20C026C4E+C2 




17 

5® 200 13535 E+C2 




18 

5® 20 038452 E+ 02 




19 

5®2059446 1E+02 




20 

5,464144346+02 




21 

5,467108346+02 




22 

5,233493546+02 




23 

5® 28907 48 8E+ 02 




24 

5® 346C70386+02 




25 

5,396252886+02 




26 

5,4 180 1 133E+02 




27 

5,233442506+02 




28 

5,28740 280 E+C2 




29 

5.333555896+02 




30 

5.3606C 849 £+02 




31 

5.380956776+02 
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TIME = 30*0000 DELTA TIME = *2000 


BLOCK NO 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 


TIME ^ 35.0000 


BLOCK NO 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 
27 
2.8 

29 

30 

31 


TEMPERATURE 


9. 19968463E+C2 
9.17683C78E+C2 
9. 16224612 E+C2 
9. 151382806+02 
9.04452283E+02 
5.661925956+0 2 
5*660555976+02 
5. 224235636+02 
5 *2240 8 8 33 £+02 
5.22399472E+C2 
5.2239582CE+02 
5. 23655 71 7E+C2 
5* 606QS8 82 E + G 2 
5*606401 79 £+02 
5* 20C06304E+C2 
5*200062728+02 
5* 200 3T 480 £+02 
5 *20090 594 £+02 
5* 21133501E+C2 
5.E3881156E+C2 
5* 5421 8CC7E+C2 
5*27 1289 36 £ + 02 
5.35C23185E+02 
5.41784438E+C2 
5*472290908+02 
5* 49665635E+02 
5* 27 125 132 £+02 
5.34856GG6E+G2 
5*40541333 £+02 
5*437232568+ C2 
5 *461202788+02 


DELTA TIME = 


TEMPERATURE 


9*557860958+02 
9* 53287414E + C2 
9.516925956+02 
9*504816328+02 
9*339538198+02 
5*629961636+02 
5*626460678+02 
5* 236791 54 E+C2 
5.23657608E+G2 
5*236439908+02 
5*236399438+02 
5.25418856E+02 
5.603289G7E+C2 
5*603516128+02 
5. 200123248+02 
5* 20012272E+02 
5.2008C339E+02 
5*201680468+02 
5.21758317E+02 
5*5617774 1E+C2 
5.56476228E+C 2 
5*3170 8032E+02 
5*401556566+02 
5.46391563E+02 
5.51038254E+C2 
5.531713258+02 
5*317074296+02 
5* 400 2720 9E+ 02 
5.454277258+02 
5* 483346E5E+C2 
5*505220148+02 


CONVECTION Q 


1.80797772E+00 
8* 974415 106-0 1 
8.932709756-01 
4* 451249506—01 
1.787798876-01 
2*178603188-01 
3*264100746-01 


• 2000 


CONVECTION Q 


6.454781876-01 
3.204414396-01 
3* 18977663E— 01 
1.589607998-01 
6.406821956-02 
7.91046139E-02 
1.185202736-01 


H * AREA 


7* 5 566 745 8E— 04 
3* 74739226E— 04 
3*727707436-04 
1*856708386-04 
7.42418724E-05 
7* 831 54690E— 05 
1.17329632E-04 


H * AREA 


2* 7628 8 99 6 E— 04 
1.37014474E-04 
1* 3629 565 IE— 04 
6.78870759E-05 
2* 71 69711 IE— 05 
2*86144944E— 05 
4.2869 5674E-05 


T (RECOVERY) 


3.31252580E+03 
3.312525806+03 
3.31252580E+03 
3*312525806+03 
3.312525806+03 
3. 348022568+03 
3.348047396+03 


T (RECOVERY) 


3.29202893E+03 
3. 292028936+03 
3.29202893E+03 
3.29202893E+03 
3* 29202 8 9 3E +03 
3#3 274907 2E+Q3 
3.327517606+03 
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TIME * 40*0000 


BLOCK NG 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 


TIME = 45*0000 


BLOCK NG 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 


delta time = 


TEMPERATURE 


9# 59446952 E+C2 
9.57265773 6+ C2 
9*560071 405+02 
9*54715000E+02 
9.31937705E+C2 
5* 579801 56E+C2 
5*578247525+02 
5* 249761805 + 02 
5*245485475+02 
5* 2493 15175 + 02 
5*249277615+02 
5.271418255+02 
5*559681415+02 
5.569783665+02 
5* 20C2C 8695+02 
5* 20C2C 7555+02 
5* 20 14 3264E+02 
5* 202645 59E+C2 
5. 223864005+02 
5.548764215+02 
5*550565235+02 
5* 36C935S55+02 
5*434630245+02 
5.482455155+02 
5*515624035+02 
5* 531181355 +C 2 
5* 3 60 96627 £+02 
5*433841325+02 
5. 476310825+02 
5.496378045+02 
5. 514932845+02 


DELTA TIME « 


TEMPERATURE 


9*586853125+02 
9*564543285+02 
9*551620195+02 
9.5380C6745+C2 
9.248345355+02 
5*553723035+02 
5*552150415+02 
5.262689896+02 
5.262352176+02 
5.262149485+02 
5.262120255+02 
5.287681275+02 
5.546601646+02 
5* 5466C474 E+02 
5.20031963E+02 
5. 200318816+02 
5.20223896E+02 
5*203743145+02 
5* 2 29 800 70 E+02 
5. 532715706+02 
5.534272955+02 
5*396309075+02 
5*452638995+02 
5.48696438E+C2 
5.51G19208E+02 
5* 52112566E + 02 
5.396365426+02 
5* 452 15C9 9E + C2 
5*482875496+02 
5*498605225+02 
5*510358626+02 


.2000 


CONVECTION Q 


1 • 3 532067 IE-01 
6.611205255-02 
6* 5133773 1E-0 2 
3* 22212355E-02 
1* 29877646E— 02 
1* 60288580E-02 
2 • 3 95 6 99 2 7 E-0 2 


.2000 


CONVECTION Q 


7*759147085-02 
3* 79133376E-02 
3.735548656-02 
1.84815068E-02 
7.486340725-03 
9. 355339825-03 
1.398272885-02 


H * AREA 


6* 9 542 158 IE— 05 
3.393736485-05 
3.341359535-05 
1.65185292E— 05 
6. 581451975-06 
6. 70340521E— 06 
1.001821466-05 


H ♦ AREA 


4* 39214468E— 05 
2. 1434164 5E-05 
2. 1 1033673E— 05 
1.043279955— 05 
4.158045135-06 
4.23193C97E-06 
6.32460474E— 06 


TIPECOVERY) 


2.90532665E+03 
2. 905326656+03 
2 .905326656 +03 
2.905326656+03 
2. 90532665E+03 
2.94913178E+03 
2.94916829E+03 


TtRECOVERY) 


2.72528174E+03 
2. 72528174E+03 
2. 725281746+03 
2.725281745+03 
2.72528174E+03 
2 .76602741 E+03 
2. 766061315+03 
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TIME = 50.C000 DELTA TIME = .2000 


BLOCK NO 

TEMPERATURE 

CONVECTION Q 

H * AREA 

T (RECOVERY) 

1 

9® 56475696 E+02 

4® 6029963 9E— 02 

3®0 107681 8E— 05 

2* 48532020 E+ 03 

2 

9*54227678 E+G2 

2® 2496 303 lE-O 2 

1® 4692 9743 E— 05 

2® 48532020 £+03 

3 

9 a 5292247 4 £+02 

2® 2168C723E-02 

1 #4466265 5E— 05 

2® 48532020 E+03 

4 

9® 51494613E + C2 

1® 096943 94E-02 

7® 1 5168627E—06 

2*4 8532020 E +03 

5 

9® 16493427 £+02 

4® 4735345 5E— 03 

2®85151594E— 06 

2® 48532020E+C 3 

6 

5® 53669737E+C2 

5® 7151742 Ic-O 3 

2®90326056E—06 

2 ® 522206 18 E+03 

7 

5® 53512544E+02 

8®542122776~03 

4® 3389 132 2E— 06 

2® 52223659E + 03 

8 

5®27551606£+C2 




9 

5*275116296+02 




10 

5® 274882 17E+02 




11 

5®27486526E+C2 




12 

5® 3031G575E+C2 




13 

5® 53 1 1999 1E + 02 




14 

5® 53113798 E+ 02 




15 

5® 20045591E+02 




16 

5® 20045508 E+02 




17 

5® 20 318490 E+ 02 




18 

5 • 20491823E+C2 




19 

5® 235422 14E+C2 




20 

5®52118039E+02 




21 

5.52230842E+02 




22 

5® 42245956 E+02 




23 

5® 46368978 E+C2 




24 

5® 4884374 2E+C2 




25 

5# 5051 10 34 E+02 




26 

5® 512961C8E+C2 




27 

5*42253298 E+02 




28 

5® 4633 760 2 E+02 




29 

5®48555433E+G2 




30 

5® 49687324 E+ 02 




31 

5® 50 532098 E+02 





IME * 55*0000 

DELTA TIME = 

• 2000 



BLOCK NO 

TEMPERATURE 

CONVECTION 0 

H * AREA 

T (RECOVERY) 


1 

9® 53416522E+02 

2®52341872E-02 

2® 05612942E-05 

2# 1 8068300E+03 

2 

9® 5117C875E+02 

1.23372672E-02 

1 #0034278 5E—05 

2* 18068300 E+0 3 

3 

9® 496650996+02 

1* 21598618E-02 

9® 87949700E— 06 

2* 1 80683 00 E+03 

4 

9® 48367795E+C2 

6®01883792E-03 

4.88417G77E-06 

2# 1 80 6 8 300 E+03 

5 

9®07505764E+C2 

2® 48059567E-03 

1® 9483 506 3 E~ 06 

2# 18068300 E+03 

6 

5.52495256E+0 2 

3® 29534637E-03 

1®98516685E— 06 

2*2 1247984E+03 

7 

5® 5 2339272 E+02 

4*92542583E“03 

2.96682656E-06 

2 *2 12 50 5 69 E+03 

8 

5® 2882096 5 E+02 




9 

5.28774784E+C2 




10 

5® 28748 38 7 £+02 




11 

5® 28748 192 c+ 02 




12 

5 ®31 77761 1E+02 




13 

5® 52053661 E+02 




14 

5® 52043056E+C2 




15 

5®20C6173 1E+02 




16 

5* 2CC61663E+02 




17 

5® 204237 04 E+02 




18 

5® 20615472E+02 




19 

5.24079051E+02 




20 

5® 51 3C 7109 £+02 




21 

5®51390124E+0 2 




22 

5®4413131 1E+02 




23 

5® 47 126 54 2 E+02 




24 

5® 489 2453 3 E+02 




25 

5®50137626£+02 




26 

5* 5C7C8688E+02 




27 

5® 44139829E+02 




28 

5® 4710678 1E+C2 




29 

5*4871 7C49E+02 




30 

5® 495 39224E+C2 




31 

5® 501 52792 E+02 
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TIME = 


60s 0000 


BLOCK NO 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 


TIME = 65.0GQG 


BLOCK NO 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 


DELTA TIME « 


TEMPERATURE 


9 *496612586+02 
9® 47629 523 £+02 
9® 4633G504E+02 
9# 44757685 E+C2 
8*982225048+02 
5*516884358+02 
5*515345726+02 
5.3GC7523CE+G2 
5® 3G022889E+02 
5*299937046+02 
5# 2995 5139E+C2 
5. 33 1755116+02 
5®51317975E+C2 
5® 5 130438 1E + C2 
5® 200SG 356E+C2 
5® 20C 8C318E+Q2 
5.2GS37C138+C2 
5# 20744101 E+C2 
5® 24 59 546 7 E+ 02 
5# 5C745677E+G2 
5® 50 8C 770 C 6+02 
5*454844576+02 
5*476686936+02 
5®489 8 76G2E+G2 
5® 49881218E+02 
5®50301582E+C 2 
5® 454 93794E+G2 
5®47656991E+02 
5*488362996+02 
5«49439587E+C2 
5.498899166+02 


DELTA TIME ■ 


TEMPERATURE 


9.46063933E+G2 
9*438520088+02 
9® 42 56348 8 E+ 02 
9.4C9C718GE+02 
8® 889 2571 8E+02 
5*511428888+02 
5.50992936E+02 
5.31313433E+C2 
5# 3 125 50 01E +02 
5.31223247E+G2 
5.21226326E+C2 
5* 3450 80 4 2 £ + 02 
5® 5082C 79 3E + C2 
5® 50605434E + C2 
5.20101437E+02 
5® 20 101447 £+02 
5*206565656+02 
5®20876930E+02 
5*250951456+02 
5® 5036821 9 E+G2 
5® 5C 41550 1E+G2 
5*464578726+02 
5*480662356+02 
5. 490474386+02 
5*49716682 E+G2 
5*500311176+02 
5« 464677 76E+C2 
5*4806013 96 +02 
5*489352796+02 
5*493843646+02 
5*497197356+02 


*2000 


CONVECTION Q 


1. 354673016-02 
6® 62731971E-03 
6® 53441842E-03 
3* 23604897E— 03 
1.357364348-03 
1.92125363E-03 
2® 87168646E— 03 


.2000 


CONVECTION Q 


7*784683976-03 
3.811034716-03 
3.759114586-03 
1*862794286-03 
7.986534776-04 
1® 20046198E— 03 
1 ® 79435698E-03 


H * AREA 


U48813255E-05 
7 * 2 62 424 7 9E- 06 
7. 15044-194E— 06 
3* 535C390CE— 06 
1*413976206—06 
1* 43 92 3 99 5 E— 06 
2* 15094152E— 06 


H * AREA 


1*101 8332 8 £—05 
5* 37725049E— 06 
5*2943673 3E-06 
2.61 74685 9E— 06 
1.04539191E-06 
1. 06750 902E-06 
1* 595 3910 8E— 06 


T (RECOVERY) 


1*860178696+03 
1*8 6017869E+03 
1 ® 860 17869 E +03 
1*860178696+03 
1* 86022621E+03 
1*886596936+03 
1® 8 8661 804 E +03 


TIRECOVERY) 


1* 652 5849 8E+03 
1® 652 58498E+03 
1 * 652 58498E+03 
1.652584986+03 
1*652900906+03 
1 *675687936+0 3 
1® 675705 87 E +03 
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TIME * 70.0000 DELTA TIME = .2000 


BLOCK NO 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 


TIME = 75.0000 


BLOCK NO 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 


TEMPERATURE 


9.42171222E+C2 
9.39981759E+C2 
9. 3870 5422 E+C 2 
9. 369 56 86 16 + 02 
8 *79 77345 4 £+02 
5.507837106+02 
5.50637859 S+02 
5.32535173E+C2 
5.32470728E+C2 
5.324366356+02 
5.324412 60 E +02 
5.357791836+02 
5. 50494711 E+02 
5.50478266E+C 2 
5.201 2494 1E+02 
5.2012 50 18 £+02 
5. 2078 111 1E+C2 
5.21C134Q9E+02 
5.2558G823E+C2 
5.501245106+02 
5. 50 16 1452E+02 
5.47162790E+02 
5. 483650256+02 
5 .49109 194 £+02 
5. 4962 1349 E+ 02 
5.49 86156 1E+02 
5.47173083E+C2 
5.48362823E+02 
5.490242676+02 
5.49365149E+02 
5.496198666+02 


DELTA TIME * 


TEMPERATURE 


9.3825S716E+G2 
9.360937006+02 
9.34830159E+02 
9. 3 29 80424 E+ 02 
8.70836806E+02 
5* 50 555984 E+ 02 
5.504I4297E+C2 
5. 3 37 40344E+02 
5.336699706+02 
5.33633774E+C2 
5.33639740E+02 
5.3 6993138 E+ 02 
5.5029C144E+02 
5. 50273C 83E+C2 
5. 20 150 837 E +02 
5* 2015100 1E+02 
5 .209096556+02 
5.211 5 3143E+C2 
5. 26C 54519E+G2 
5.49976810 E+ 02 
5. 50006517E + 02 
5.47678916E+02 
5.48596C84E+02 
5.4917 4447E+C2 
5. 49 576902 E+ 02 
5. 49765252 £+02 
5. 4768947 5E +02 
5.48596581E+02 
5® 49108436 E+02 
5.49373638 E.+ 02 
5.49 57 1948 E+ 02 


CONVECTION Q 


4. 87 55261 5 E-Q 3 
2. 388859 76c— 03 
2. 357473 39E-Q3 
1. 169195256—0 3 
5.15700746E-04 
8. 26391229E— 04 
1.23524798E-03 


.2000 


CONVECTION Q 


3. 688891758-03 
1. 808295876-03 
1 • 785027106-03 
8.85841469E-04 
3.993592336-04 
6. 57119643E-04 
9.82236067E-04 


H * AREA 


8*845146826—06 
4.31 6706926—06 
4* 250 1 8878 E— 06 
2.10126848E— 06 
8*397312286-07 
8. 58063 8126— 07 
1.282375796-06 


M * AREA 


7.562C6659E-06 
3. 690 5404 8 E— 06 
3.633681038-06 
1. 79649400E— 06 
7. 18331 81 7E— 07 
7. 341 9 572 5£- 07 
1. 097255116-06 


T (RECOVERY) 


1 .493380 40 E +03 
1 .49338040 E+0 3 
1.49338040E+03 
1. 49338040 E+0 3 
1 . 49389941 E+O 3 
1 • 5 138720 2E +03 
1. 5138 8747 E+03 


T (RECOVERY) 


1.42607501E+03 
1. 4260 750 IE +03 
1*42607501 E+0 3 
1.4260750XE+03 
1*426790 51 E+0 3 
1.44557569E+03 
1 • 445 58996 E+03 
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TIME = 8C.G000 


BLOCK NO 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 


TIME * 85.0000 


BLOCK NO 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 


DELTA TIME = 


TEMPERATURE 


9. 34 3 59 996 E+ 02 
9.32217739E+C2 
9. 30967 180 £+02 
9.29007613E+02 
8.62139864E+02 
5. 5041 6560E+02 
5.50279027E+C2 
5. 34928998 E+02 
5.3485278CE+C 2 
5 .34 €147 18 E+02 
5.34821724E+C2 
5.38153499 E+C2 
5* 501 68987E+C2 
5.50151 63CE+02 
5. 20 179092 E+02 
5 • 201 79362 E+02 
5. 210415476+02 
5.21295839 E+02 
5. 26 5 17699 E+02 
5.498961936+02 
5.499208298+02 
5. 48C 62 8 176+02 
5.48 78048 lc+ 02 
5.492429206+02 
5.495686168+0 2 
5.4972C 6886+02 
5. 480735546+02 
5. 4878285 3 6+ C2 
5.491901186+02 
5.494024006+02 
5. 495612726+02 


DELTA TIME = 


TEMPERATURE 


9. 30479055 E+02 
9. 283 6C 7156+02 
9.271232196+02 
9.250456256+02 
8 .536825136+02 
5.503359896+02 
5.50202554E+C2 
5. 36101 2 22 6+ 02 
5. 360 19247 £+02 
5. 3 59 79 558 £+02 
5. 3598721 5E+C2 
5.39263286E+G2 
5. 50 10 34 14 E+02 
5. 500 8 59 75 E+02 
5.202Q96736+C2 
5. 202 ICO 70 E+02 
5. 2 1 176 310E+02 
5.214412786+02 
5.26971396 E+02 
5.496603898+02 
5. 4988 1434 E+02 
5. 483 54 200 £+02 
5. 489 3 198 3 E+02 
5.49312820E+C2 
5* 49 584255E+G2 
5* 497 1C 71 2 E + 02 
5.48365055E+02 
5.489356776+02 
5. 49 269 386E + C2 
5. 49444 38 8E+ 02 
5. 49 57 54 74 E+C2 


.2000 


CONVECTION 0 


2# 7378935 IE- 03 
1. 34291236E-03 
1. 326090 12E-C3 
6. 58622828E-04 
3.04912024E-04 
5.17531288E-04 
7.73591002E-C4 


.2000 


CONVECTION Q 


1.98481952E-G3 
9.74287472E-04 
9.62514929E-04 
4.7856591TE-04 
2. 2900737 4E-04 
4.C3331774E-04 
6. 0289421 9E*04 


H * AREA 


6. 43010219E— 06 
3. 13811924E— 06 
3.08977974E— 06 
1* 52761 137 E— 06 
6. 111714056—07 
6.24840661E-07 
9* 33824108E—07 


H * AREA 


5.4358 3921E—Q6 
2. 6528971 5E-06 
2.612040C7E-06 
1.29143456E-06 
5.16993415E-07 
5. 28719453E— 07 
7.90171Q81E-07 


T (RECOVERY) 


l. 3601 5315 E +03 
1.36015315E+03 
1.36015315E+03 
1*3601531 5 E+03 
1.36103759E+03 
1.37867778E+03 
1.37869093E+03 


T (RECOVERY) 


1.295 6 i486 E+03 
1.295 614 86 E+03 
1 .295 61 4 86 E+03 
1.29561486E+03 
1.29664246E+03 
1.3 131 8247 E+03 
1 • 3 131 9456 E+03 
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CONCLUDING REMARKS 


A general transient heat -transfer program (D1244) developed at the Langley 
Research Center is described. This program has been used frequently in the thermal 
design of space vehicles and spacecraft which are subject to aerodynamic heating; 

The governing equations and finite -difference method for their numerical solution 
are given. Complete program listing and flow diagrams are included, and the program 
inputs are described in detail. 

The input data and computer results from two sample heating examples are 
included as check cases for program D1244 users. 

Langley Research Center, 

National Aeronautics and Space Administration, 

Hampton, Va., April 17, 1970. 
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APPENDIX A 


LINEARIZATION OF THE RADIATION-OUT TERM 

For rapidly changing wall temperatures, particularly when the radiation-out heat 
flux is significant, the computations are more accurate if the fourth power of temperature 
used in the radiation-out term is included as an unknown in the solution for Tj rather 
than using (t^ at the beginning of the time step. The computational procedure for the 
solution to the temperatures of the blocks is based on a system of linear equations; thus, 
the inclusion of a T^ term is not feasible. However, as a first approximation, the 
(t^ term can be updated in the radiation-out heat flux term. 

Let Qrad-out = eaAT w 4 where T w is an average temperature given by 


- T i + T i 
rp _ L J- 

J-W = o 


since AT W = T^ - T?; then 


T - t- + ATw 

T w - T i + ~7jj— 




and 


Tw 4 = (t!) 4 (l + ^!rj = (t0 4 (1 + X) 4 




where X s — Expanding (1 + X)4 in a series and neglecting terms higher than first 
2Ti 

order yields 


T w 4 - (tO 4 « + x) 4 * (t;) 4 a + 4x> = (t;) 4 (i + ^ 

- (t 0 3 [ t ; + 2(Tl - Tj)] 

- 2(Ti) 3 Ti - (tJ) 4 
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APPENDIX A - Concluded 


and 


^rad-out *« 42 (t;) 3 T 



Since T| is raised to the first power, it can be included in the linear solution of the 
equations. 
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APPENDIX B 


DEVELOPMENT OF SIBULKIN EQUATION 
FOR MACHINE COMPUTATION 


Sibulkin’s expression for the heat-transfer coefficient (ref. 5) is: 


N N U,D - 0.763Np r °Vf! 


At the stagnation point equation (Bl) becomes 


0.4,, (§P 


h = 0.763Np r u, ^k s 


By introducing free -stream conditions and assuming that Np r is a constant, equa- 
tion (B2) becomes 


0.763 M°- 5 / M sPs\' 


y2Np r 0 * 6 \M Re^/ft 


Upon assuming that 


and including the equation of state 


equation (B3) becomes 


/i a T 


P S _ P S T oo 
Poo PccTg 


0.763 P^ 1 / 2 gP^V„°p,s 


/2N P: 


0.6 IV 


r n /^Re,oo/ft 


From Van Driest (ref. 3) for Newtonian flow, 
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APPENDIX B - Concluded 


Now 


and 


r 


gD J 8 [(y - 1)M 00 2 + 2] 


r^r ^00 -r -j x + y - 1 (y - l)M oo ^ + 2 . 

(y+ mj [ 2 2yMj - (y - l)j J 


2 j. ol y-1 


*\ 


1/2 


= 1 + LlImJ 


Ps. 

Poo 


"(y + DM J 

y-l 

y + 1 

2 


2yMoo2 - (y - 1)_ 


For y = 1.4 and Np r =0.72, eqviation (B6) becomes 


h 



£>P oo^oo C p t S 
l^nj/NRe, 00/ft 


where 


0.763 M 1/2 

?T„\°- 24 P S 

' \[2 N Pr 0 - 6 x°°) 

\t S/ ) p. 


-, 1/2 


Substituting equations (B7), (B8), and (B9) into equation (Bll) and approximating the 
resulting expression by a second-order polynomial in over the range M*, = 0 

Moo = 5 yields 

f(M 00 ) s B = 0.800 + 0.541Moo - 0.00574Moo 2 


Thus, 


h = 


B SPco V oo( C p) 


Perfect 



where c p?s is replaced by (c p ) Perfect . 


(B7) 


(B8) 


(B9) 


(BIO) 


(Bll) 


to 

(B12) 


(B13) 
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APPENDIX C 


LANGLEY LIBRARY SUBROUTINES 
Subroutine DISCOT 


Language : FORTRAN 

Purpose : DISCOT performs single or double interpolation for continuous or discon- 
tinuous functions. 

Given a table of some function y with two independent variables, x and z, this 
subroutine performs K x th- and K z th-order interpolation to calculate the dependent 
variable. In this subroutine all single-line functions are read in as two separate 
arrays and all multi-line functions are read in as three separate arrays; that is, 

x i (i = 2, . . L) 

yj (j » 1, 2, . . M) 

zk (k = 1, 2, . . N) 

Use : CALL DISCOT (XA, ZA, TABX, TABY, TABZ, NC, NY, NZ, ANS) 

XA The x argument 

ZA The z argument (may be the same name as x on single lines) 

TABX A one-dimensional array of x values 

TABY A one-dimensional array of y values 

TABZ A one-dimensional array of z values 

NC A control word that consists of a sign (+ or -) and three digits. The 

control word is formed as follows: 

(1) If NX = NY, the sign is negative. If NX 4 NY, then NX is com- 
puted by DISCOT as NX = NY/NZ, and the sign is positive and may 
be omitted if desired. 

(2) A one in the hundreds position of the word indicates that no extrapo- 
lation occurs above z ^y . With a zero in this position, extrapola- 
tion occurs when z > z maY . The zero may be omitted if desired. 

(3) A digit (1 to 7) in the tens position of the word indicates the order 
of interpolation in the x-direction. 

(4) A digit (1 to 7) in the units position of the word indicates the order 
of interpolation in the z-direction. 
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APPENDIX C - Continued 


NY The number of points in y array 

NZ The number of points in z array 

ANS The dependent variable y 

The following programs will illustrate various ways to use DISCOT: 

Case I: Given y = f(x) 

NY = 50 

NX (number of points in x array) = NY 
Extrapolation when z > z max 
Second-order interpolation in x-direction 
No interpolation in z-direction 
Control word = -020 

DIMENSION TABX (50), TABY (50) 

1 FORMAT (8E 9.5) 

READ (5,1) TABX, TABY 
READ (5,1) XA 

CALL DISCOT (XA, XA, TABX, TABY, TABY, -020, 50, 0, ANS) 

CASE II: Given y = f(x,z) 

NY = 800 
NZ = 10 

NX = NY/NZ (computed by DISCOT) 

Extrapolation when z > z max 
Linear interpolation in x-direction 
Linear interpolation in z-direction 
Control word =11 

DIMENSION TABX (800), TABY (800), TABZ (10) 

1 FORMAT (8E 9.5) 

READ (5,1) TABX, TABY, TABZ 
READ (5,1) XA, ZA 

CALL DISCOT (XA, ZA, TABX, TABY, TABZ, 11, 800, 10, ANS) 

CASE HI: Given y = f(x,z) 

NY = 800 
NZ = 10 
NX= NY 

Extrapolation when z > z max 
Seventh-order interpolation in x-direction 
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APPENDIX C - Continued 


Third-order interpolation in z-direction 
Control word = -73 

DIMENSION TABX (800), TAB Y (800), TABZ (10) 

1 FORMAT (8E 9.5) 

READ (5,1) TABX, TABY, TABZ 
READ (5,1) XA, ZA 

CALL DISCOT (XA, ZA, TABX, TABY, TABZ, -73, 800, 10, ANS) 

Case IV: Same as Case in with no extrapolation above z max . Control word = -173 
CALL DISCOT (XA, ZA, TABX, TABY, TABZ, -173, 800, 10, ANS) 

Restrictions : See rule (5c) of section "METHOD" for restrictions on tabulating arrays 
and discontinuous functions. The order of interpolation in the x- and z-directions 
may be from 1 to 7. The following subprograms are used by DISCOT: UNS, DISSER, 
LAGRAN. 

Method : Lagrange's interpolation formula is used in both the x- and z-directions for 
interpolation. This method is explained in detail in reference (a) of this subroutine. 
For a search in either the x- or z-direction, the following rules are observed: 

(1) If x < Xp the routine chooses the following points, for extrapolation: 

■^i> x 2> • • ■’ x k+i ^ yi> y2> • • ■’ yk+i 

(2) If x > x n , the routine chooses the following points for extrapolation: 

x n-k> ^-k+l’ • • •> x n an< ^ Yn-k* yn-k+l> • • •> Yn 

(3) If the routine chooses the following points for interpolation: 

When k is odd, 


x 

i 


k+T X i k±l + i ’ 
2 2 


•> 


x 

i- 


k+1 

2 


+k 


and 


y 

i 


k+1’ 

2 


y 

i- 



•9 


y 

i- 


k+1 

2 


+k 
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APPENDIX C - Continued 


When k is even. 



*• k > 

i" 2 + 1 



and 


y 

i- 




• 5 



(4) If any of the subscripts in rule (3) become negative or greater than n 
(number of points), rules (1) and (2) apply. When discontinuous functions are 
tabulated, the independent variable at the point of discontinuity is repeated. 

(5) The subroutine will automatically examine the points selected before interpo- 
lation and if there is a discontinuity, the following rules apply. Let x<j and 
x,j + i be the point of discontinuity. 

(a) If x £ xd, points previously chosen are modified for interpolation as 
shown: 

x d-k> x d-k+l> • • •> x d an£ * y d-k> y d-k+l> • • •> Yd 

(b) If x > X(j, points previously chosen are modified for interpolation as 
shown: 

x d+l> x d+2’ ' • •’ x d+k and y d+l’ y d+2’ * * •» y d+k 

(c) When tabulating discontinuous functions, there must always be 

k + 1 points above and below the discontinuity in order to get proper 
interpolation. 

(6) When tabulating arrays for this subroutine, both independent variables must 
be in ascending order. 

(7) In some engineering programs with many tables, it is quite desirable to read 
in one array of x values that could be used for all lines of a multi -line 
function or different functions. Even though this situation is not always 
applicable, the subroutine has been written to handle it. This procedure not 
only saves much time in preparing tabular data, but also can save many loca- 
tions previously used when every y coordinate had to have a corresponding 
x coordinate. Another additional feature that may be useful is the possibility 
of a multi -line function with no extrapolation above the top line. 


142 



APPENDIX C - Continued 


Accuracy : A function of the order of interpolation used. 

Reference : (a) Nielsen, Kaj L.: Methods in Numerical Analysis. The Macmillan Co., 
c.1956. 

Storage : 555g locations 

Subprograms used : IJNS 40g locations 

DISSER llOg locations 
LAGRAN 55g locations 

Subroutine date : August 1, 1968 
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APPENDIX C - Continued 


Subroutine SIMEQ 


Language : FORTRAN 

Purpose : SIMEQ solves the matrix equation AX = B where A is a square coefficient 
matrix and B is a matrix of constant vectors. The solution to a set of simultaneous 
equations and the determinant may be obtained. If the user wants the determinant 
only, use DETEV for savings in time and storage. 


Use : CALL SIMEQ (A, N, B, M, DETERM, IPIVOT, NMAX, ISCALE) 

A A two-dimensional array of the coefficients 

N The order of A; UNI NMAX 

B A two-dimensional array of the constant vectors B. On return to 

calling program, X is stored in B 

M The number of column vectors in B 

DETERM Gives the value of the determinant by the following formula: 


DET(A) = 10 100 ISCALE (determ) 

IPIVOT A one -dimensional array of temporary storage used by the routine 

NMAX The maximum order of A as stated in dimension statement of calling 

program 

ISCALE A scale factor computed by subroutine to keep results of computation 
within the floating-point word size of the computer 


Restrictions : Arrays A, B, and IPIVOT are dimensioned with variable dimensions in the 
subroutine. The maximum size of these arrays must be specified in a DIMENSION 
statement of the calling program as: A (NMAX, NMAX), B (NMAX, M), IPIVOT 
(NMAX). The original matrices, A and B, are destroyed. They must be saved by the 
user if there is further need for them. The determinant is set to zero for a singular 
matrix. 


Method : Jordan's method is used through a succession of elementary transformations: 
l n , f n - 1> • • •> ^1- If these transformations are applied to a matrix B of constant 
vectors, the result is X where AX = B. Each transformation is selected so that the 
largest element is used in the pivotal position. 

Accuracy : Total pivotal strategy is used to minimize the rounding errors; however, the 
accuracy of the final results depends upon how well-conditioned the original matrix is. 
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APPENDIX C — Continued 


Reference : (a) Fox, L.: An Introduction to Numerical Linear Algebra. Oxford Univ. 
Press, c.1965. 

Storage : 432g locations 

Subroutine date : August 1, 1968 
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APPENDIX C - Continued 


Subroutine FTLUP 


Language : FORTRAN 

Purpose : Computes y = F(x) from a table of values using first- or second-order inter- 
polation. An option to give y a constant value for any x is also provided. 


Use : CALL FTLUP (X, Y, M, N, VARI, YARD) 


X 

Y 

M 


N 

VARI 

YARD 


The name of the independent variable x. 

The name of the dependent variable y = F(x) 

The order of interpolation (an integer) 

M = 0 for y a constant. VARD(I) corresponds to VARI(I) for 
I = 1, 2, . . ., N. For M = 0 or N 2 1, y = F(VARI(1)) for any 
value of x. The program extrapolates. 

M = 1 or 2. First or second order if VARI is strictly increasing 
(not equal) 

M = -1 or -2. First or second order if VARI is strictly decreasing 
(not equal) 

The number of points in the table (an integer) . 

The name of a one -dimensional array which contains the N values of the 

independent variable. 

The name of a one -dimensional array which contains the N values of the 

dependent variable. 


Restrictions : All the numbers must be floating point. The values of the independent 
variable x in the table must be strictly increasing or strictly decreasing. The 
following arrays must be dimensioned by the calling program as indicated: VARI(N), 
VARD(N). 


Accuracy : A function of the order of interpolation used. 

References : (a) Nielsen, Kaj L.: Methods in Numerical Analysis. The Macmillan Co., 
c.1956, pp. 87-91. 

(b) Milne, William Edmund: Numerical Calculus. Princeton Univ. Press, 
c.1949, pp. 69-73. 


Storage : 430g locations 
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APPENDIX C - Continued 


Error condition : If the VARI values are not in order, the subroutine will print TABLE 
BELOW OUT OF ORDER FOR FTLUP AT POSITION xxx TABLE IS STORED IN 
LOCATION xxxxxx (absolute). It then prints the contents of VARI and VARD, and 
STOPS the program. 

Subroutine date : September 12, 1969 
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APPENDIX C - Concluded 


Subroutine AT62 


Language : FORTRAN 

Purpose : AT62 approximates the U.S. Standard Atmosphere, 1962 (ref. (a) of this 
subroutine). Computes density in slugs/ft3, pressure in lb/ft2, temperature in 
degrees Kelvin, and the velocity of sound in ft/sec at any geometric altitude z in 
the range -16 500 feet S z g 2 320000 feet. 

Use : CALL AT62 (Z, ANS) 

Z Geometric altitude in feet 

ANS A one -dimensional array that contains the results. 


ANS(l) 

Density in slugs/ft^ 

ANS(2) 

Pressure in lb/ft^ 

ANS(3) 

Temperature in degrees Kelvin 

ANS(4) 

Velocity of sound in ft /sec 


Restrictions : Range: For altitudes below -16 500 feet the values of density, pressure, 
temperature, and velocity of sound are not valid. The concept of the velocity of sound 
in the atmosphere becomes essentially meaningless at altitudes in excess of 
300 000 feet. To point out this limitation, the velocity of sound at altitudes above 
300 000 feet is set equal to the velocity of sound at 300 000 feet. For altitudes above 
2 320 000 feet, density, pressure, and temperature are set equal to their respective 
values at 2 320 000 feet. 

Method : The equations and techniques are identical to those used in computing the U.S. 
Standard Atmosphere, 1962 (ref. (a) of this subroutine) 

Accuracy : The tables in the referenced publication were computed with an IBM 7094 using 
some double -precision arithmetic. In converting the routine for the CDC 6000 com- 
puters, all double -precision arithmetic was eliminated. Accordingly, there may be 
slight differences between the results of the converted subroutine and the tables. 

Reference : (a) Anon.: U.S. Standard Atmosphere, 1962. NASA, U.S. Air Force, and 
U.S. Weather Bur., Dec. 1962. 

Storage : 1654g locations 

Subroutine date : August 1, 1968 
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